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BAS1C 


在 上 一 期 我 们 介 焰 过 Pr oDQ5 
的 BASTC.SYSTRERM 的 指标 程式 
， 知道 估 黄麻 在 载 信 了 RODOS 和 
BASIC。SYSTEM 两 个 档案 之 和 后 
会 目 动 找 姑 STARIU 上 上 和 执行 运 
个 程式 的 各 种 原因 ; 今 次 我 们 将 会 
看 看 ProD0S BASIC 的 $3B 一 
BOO 一 BEER 。 简 称 垮 G PP ， 
它 的 功能 与 PROD0OS 的 $BBROO 
一 中 卫 卫 卫 卫 页 差不多 。 

运 个 G 了 了 页。 可 以 谣 是 整个 卫 
一 roDOS BASIC 的 中 概 。 情 形 
就 好 像 允 工 工 是 Pr oDOS 的 中 概 
-一样 在 G 了 了 地址 $B 了 0O0 一 9B 






一 卫 了 BR 有 着 由 BASIC.SYST 卫 
一 人 如 定 及 使 用 的 重要 向 量 。 俊 数 
及 子 程式 等 ， 考 些 功能 都 随时 可 以 
供 BASTC 及 汐 编 语言 程序 员 使 用 
的 。 


进入 ProDOS BASIC 


地 址 $B 卫 OO ( 见 程 式 1 ) ， 
是 一 个 进入 ProDOS BASIC 暧 
起 动 进 大 点 的 向 量 位 置 。 在 放 司 地 
址 的 第 5 页 (1$3500 一 $35 了 FE 
) 中 的 两 个 向 量 $3 DO 及 $35D 
5 此 指向 地 址 $ 了 B 了 OO ;ro 
-DO0S 与 DO8 5 .3 不 同 ， 准 


尼 怠 的 进 人 点 站 非 下 在 APTITLC 翻 
译 冀 【 简 各 包 3BI ) 之 内。 


错误 讯 县 


在 程式 ( 工 ) 的 地 址 $ 卫 卫 09 
不。 是 把 程式 捷 制 权 交 栓 卫 RROR 
错 狐 房 息 去 ， 过 是 一 个 由 卫 工 负 真 
的 主要 错 讽 讯息 指示 程式 "首先 把 
钳 絮 三 由 累加 器 A 塌 途 至 地 址 $ 卫 
一 卫 0 了 了 ， 践 着 便 进 行 一 些 预 储 的 
工作 。 如 果 ONERR 族 号 (9$D8 
) 是 届 定 的 ， 便 设 有 钳 吉 讯 息 印 出 
如果 ON 了 ERR 旗号 是 除 下 的 。 则 


子 程式 便 含 执行 ， 它 会 印 出 销 误 识 


才 11、BASIL 翻 译 器 鱼 讽 傅 


RANGE ERROR 

NO DEVICE CONNECTED 
WRITE-PROTECTED 

END OF DATA 

PATH NOT FOUND 

PATH NOT FOUND 

IO ERROR 

DISK FULL 

FILE LOCKED 

INVALID PARAMEIER 
NO BUFFERS AVAILABLE 
FLILE TYPE MISMATCH 
PROGRAM TOGO LARGE 
NOT DIRECT COMMAND 
SYNTAX ERROR 
DIRECTORY FULL 

PILE NOT OPEN 
DUPLICATE FILE NAME 
FILE BUSY 

FILE(S) STILL OPEN 





息 ， 划 且 返 回 Applesoft 。 
请 注意 $ 38B 卫 0 9 的 程式 兹 不 
会 返回 呼唤 程式 的 部 份 。 但 9$38 卫 
0 C 却 会 。 在 使 用 $ 3 了 卫 0 9 子 程 
式 上 时， 必须 注意 0N 了 RR 旗号 是 否 
除 下 。 而 使 用 $B 卫 00 肝 。 在 到 
1 中 栽 有 了 关 检 铬 掏 柄 及 其 相对 之 训 
息 的 将 料 。 供 大 家 获 者 。 


才 行 ProDOS 命 兮 


在 程式 ( 工 ) 的 地 址 $ 卫 卫 O 
5 是 BI. GBP 的 最 有 用 之 子 程式 
之 一 ， 它 是 一 个 可 以 执行 ProDO 
一 8 BASIC 命令 之 小 编程 式 。 

它 的 使 用 法 十 分 简 重 ， 只 要 你 
把 命令 的 负 ASLTII 码 放 在 办 入 角 
和 冤 区 ( $2 009 ) 之 内 。 再 加 上 
一 个 <RETURN> 。 接 善 ALL 
道 个 了 了 * 号 工 便 会 执行 过 

个 命 仿 9 

如 果 在 执行 时 有 钳 效 记 息 出 现 
， 进 位 旗号 便 会 设 定 个 。 而 了 BI 
错 效 码 便 会 存在 采 加 器 上 。 你 可 以 
使 用 $ 卫 卫 O0 9 印 出 鲁 识 居 息 。， 再 
返回 Applesoft ， 或 者 使 用 $? 
B 卫 0OC 印 出 铺 让 慰 息 但 返回 呼唤 
其 程式 之 部 份 。 如 果 在 执行 93B 卫 
0 5 和 后 。 进 位 族 谣 是 0 了 时。 过 表示 
命令 已 成 功 地 执行 。 


档案 绥 秆 管理 


ProDOoS BASIL 在 保留 档 


图 工 、 档 案 稻 街 管 奸 


档案 # 工 租 衡 区 档案 着 工 授 街区 


档案 # 忆 级 街区 


9 了 码 街 攻 
HIMRM 


ProDOS BI ProDOo8 了 HI 
溃 工 程式 
(其 度 =9?200) 


G 了 机 街区 档案 # “区 街区 5 


ee G 了 极 街 区 内 案 #2 稻 衔 区 
HIMBEM 
G 了 艘 街区 
人 字 惠 HIMEM 
字 串 


保留 $20 0OBytes 保留 8400Bytes 


案 稻 街区 方面 的 做 法 。 是 与 D 0 8 
5 。35 不 六 相 同 的 。 在 DOS 3， 
3 时 ， 它 自己 首先 设 定 了 个 档案 
炎 街 区 。 它 可 以 利用 MAXETIELBES 
命 信和 联 IMEM 去 增加 或 减少 运 些 
档案 焰 了 征 区 。 而 ProDO08 则 是 由 
3 工 所 决定 。 





ProDo08 的 档案 组 街 紧 估 员 
400bytes 。 在 设 定 及 执行 忆 
一 ASIC-SYSTEM 和 案 时 ， 五 一 
TIMERM 会 被 届 定 企 $9600， 耐 
-- 个 工 愉 长 的 [一 般 用 途 绥 街区 jJ 
( 簿 称 G 了 了 3) 是 由 卫 IMEM 〈 
9600) 至 $99 了 了 的 。 而 了 


一 工 则 载 於 $9AOO 一 $ 了 BRT 
一 卫 。GP3B 是 供 一 些 命 售 ， 如 C 
一 ATALOG，CAT 及 了 REIX 等 
使 用 。 

在 圈 工 刘 你 可 以 昂 划 在 于 档案 
时 出 现 的 情形 。 和 党 第 一 个 档案 ( 档 
案 关 上 ) 形 诬 有 上 时。 其 组 街区 使 合 估 
用 地 址 $9 600 一 99 了 机 ， 昌 
G 了 3B 原 来 估 用 的 地 址 ， 而 新 的 G 
一 上 了 地 址 。 则 顺延 移 至 $9 2 0 
0 一 $95 了 了 PP。 而 HIMEM 如 
届 定 售 $9200。 

如 果 档 案 # 工 是 在 开 其 它 档案 
之 前 天 掉 。 则 HIMENM 将 会 设 回 $ 
9600， 而 GEB 则 使 用 回 $9 
600 一 99 卫 了 地 区 。 

但 如 果 第 二 个 档案 ( 档案 头 2 
) 是 在 档案 交工 关 掉 前 开 人 茹 ， 划 会 


1， 互 IMEM 含 届 定 息 9$98 了 oO 
Oo 
2 GDP3B 会 届 定 认 $8 卫 00 
-_-$91BRn。 
3. 档案 关 乙 疆 街 怕 现 於 $9 2& 
00 一 $985 了 了。 
4 档案 # 工 仍 曹 不 於 $9 695 
0 一 99 了 Po。 
Appblesoft 的 字 串 是 存 於 
HIMEM 之 下 的 。 当 HIMEM 位 置 
移动 上 时。 字 串 会 跟着 HIMENM 一 起 
搬移 的 。 
ProDO8S BASIC 使 用 一 个 
简章 的 方法 。 可 以 在 B 工 和 档案 级 
街区 之 间 做 成 一 个 空间 供 机 械 闪 代 





式 ( 区 工 ) 使 用 的 。 首 先 把 需要 空 
名 的 地 址 页 数 存 共 累 加 器 人 A 内 ， 再 
CAE 工 工 地 址 $ 卫 卫 卫 5 ( 见 程 式 
2 ) 便 会 做 成 空位 ( 见 图 工 ) 。 

如 果 雪 行 成 功 的 话 ， 进 位 旗号 
会 被 届 定 和 个 0 ， 而 累加 器 则 存 有 才 
个 空间 地 址 的 首 两 个 上 6 进 数 字 ; 
假若 执行 失败 〈 例如 不 金 RAM 
。， 则 进 伺 旗 瞬 便 会 被 设 定 候 上 上， 而 
有 条 加 器 则 人 存 有 钳 训 友 。 

用 地 址 $ 了 B 卫 了 5 届 定 的 空间 
*， 孝 可 以 用 地 址 $ 了 B 下 了 上 8 ( 见 程 
式 避 ) 的 程式 取消 。 它 会 把 所 有 保 
留 的 空间 取消 。， 所 以 如 果 你 有 程式 
存放 於 了 工 和 档案 纵 征 区 之 间 的 空 
间 。 便 要 小 心 使 用 过 个 程式 了 ， 它 
会 把 程式 取消 。 唱 


程式 


4 3 人 dlp 
4 84AM JP 


4 %E 了 IE JP 
4 2298 JP 
4 BF FF JWMP 
00 BRK 


相信 之 


4 F0 A2 JJ 人 
4 SA Jp 





Pro DONS 
ONLINE 命 分 


大 家 孝 知 道 ，。Apple 了 本 身 
是 没有 磁 夺 机 控 制 命 今 的 。 例 如 : 
CATALOG 、SAV 了 、LOAD 等 
o 在 ErfoDOS 于 。 运 些 命 分 部 是 
附加 上 去 的 。 而 过 些 命 今 痢 是 存 从 
一 个 名 震 BASTITC.SYSTBM 的 档 
案 内 ， 而 Apple 芝 是 可 以 看 接 知 
道 那些 是 命 今 e 

如 果 你 要 加 上 自己 的 命 分 ， 一 
般 来 旋 。 可 以 使 用 CALL、USR 
或 者 & 等 。 但 是 若 可 以 直接 壕 人 名 

字 ( 如 CATAILOG 般 )，。 沪 未 是 更 
0 

以 下 要 介绍 的 过 个 程式 ， 便 是 
能 今 EroD08S8 BASIC 命令 群 中 
增加 一 个 名 篇 ONLIN 卫 的 命 全。 


程式 简 笃 


式 估 地 直 $<Oo00 至 $<= 
| 在 键入 乍 式 后 ， 可 以 按 : 
BSAV 了 COMMAND，。AUf 
2000，REq2221 
储 起 来 。 如 果 想 把 过 个 命 仿 加 在 卫 
一 ToDOS BASIC 上， 可 以 按 : 


一 COMMAND 
执行 后 改 面 将 着 有 站 廉 改 变 。 只 会 
再 出 现 钞 标 面 已 。 

咎 在 你 只 要 按 下 

ONILINB 


便 会 在 如 面 出 现 你 聘 有 的 磁 仙 其 位 
时 及 磁 碟 名 字 。 例 如 


J0NL INE 

3iot Drive Volune Nage 
t | /5ER9 ,DISK 
站 机 JPRDD033 ,3 


便 表 示 你 的 Apple 了 在 5lot 纤 者 可 以 参考 过 个 程式 ， 作 人 篇 
6 填 有 两 部 磁 夺 机。 其 信 碟 的 名 字 目 己 创造 ProDOS BASIC 命 兮 
分 别 乱 AUSERS .DISK 及 二 的 一 个 茧 本。 过 个 ONLIN 了 命 兮 
一 ROD0S 535。 3。 此 外 ， 返 个 舞 亦 可 以 在 Apple 工 c 及 [ee 的 8 


今 亦 与 其 它 的 Pr oDOS BASIC 0O column 上 工作 。 图 
命令 般 可 以 容许 有 从 数 的 ， 以 下 是 
其 使 用 不 箔 : 
程式 一 
RE 2000- 月 0 LA 村 02 
人 ?002- 20F5 旺  J9R 4BEF5 
Slot  Uri 
有 2005- 80 轩 BCS 42056 
2007- 4 PHA 
二 1 AN 
2008- 6 STA 机 
200- hoE LIY 和 5607 
2000- ho 了 LA 扫 E08 


2010- 832  STY 4213 


5lot 908 Na 
lot Drive  VOtune Nape 20t3- 80382L 9STA 42135 


2016- 有 0 LDA 村 00 
6 /PP ， 
人 20t8- 8D 07 BE  STA 加 E07 
2018- 38 SEC 
20![- 的 PL 
JONLINE ,56,D1 
201]- 8 08 了 E 5Th 48E08 
ciot V 
人 2020-  E9 21 S8C 村 21 
JUSERS Dek 2022- ”85 习 E 6TA 4 
2024- 人 2 00 LIX 村 00 
2026- 向 的 LIY 。 栖 00 
0NLINE,S 02 2028- 了 59 20 LO 村 2059VX 
Siot Drive Voluye Nane 2 的 0 5TA 和 0 
2020-  E8 IN 
0 2 /PRG60S3 .3 202E- 有 53 20 LI  $2059， 
2031- 85 07 STN 407 
2033- 18 CLC 
其 实 类 似 的 功能 ， 亦 可 以 在 / 2034- 8BL 0 LO (406) 
USERS .DISK 中 的 了 IILER 档 册 
案 中 找到 。 在 VOLUM 了 COMMAN ， 1 二 ， 
一 DS 事 的 上 IST YOLUME 便 是 2078-  E0 0 CFX 。 娃 0C 
有 此 功能 。 2030- 90 59 ECC 2028 


203f- NO LOY 禁 00 
204!- 和 肌 21 LO 时 21 
2043- 8 了 BTY 针 [ 
2045- 的 3 3ST 430 
2007- MIF LUY 村 1f 
2049- 1 22 LA 杂 22 
2049- 84 5STY 4 
200- 的 3 3STh 4 
204f- MO 1Y 村 00 
2051- 8442 3TY 细 42 
2053- 4C 2CFE Jp E2 
2054- 40 中 JP 43509 


2059- 06 21 08 21 4 24 16 

2060- 21 F 2 8D 21 00 00 0 
2008- 00 00 00 00 00 00 的 的 
2070- 00 00 0000000000 的 
2079- 00 00 00 00 00 00 00 0 
2080- 00 00 00 00 00 00 .00 的 
20886- 00 00 00 00 00 00 00 的 
2090- 00 00 00 00 00 00 00 00 
2098- 00 00 00 .00000000 的 
20600- 00 00 000 的 00000000 
20A8- 00 00 00 00 0000 .00 的 
2080- 00 00 00 00 00 00 00 00 
20886- 00 .00 00 的 0000 的 的 
2000- 00 00 .00 的 的 00 的 0 
20C8- 00 00 00 00 00 00 06 0 
20D0- 000000000000 的 的 
2008- 00 .00 的 000000 的 扣 
20E0- 00000000000000 扣 
20E8- 00 00 00 00 00 00 60 00 
20F0- 00 00 00 的 00000000 
20Fb- 00 00 00 00 0000 90 的 


2100- Ah 00 LDX 。 扫 本 60 
2102- AN 0 LDOY 村 460 
2104- 204 生 21 JSR 和 2143 
2107- FI0 2F BE8  $2138 
2109- 09S2 CHMP 车 2130Y 
210C~ 00 26 SNE 和 2139 
210E- [8 INMY 


21OF~ 
2 
2114- 
< 7 
2119-~ 
2 1 语 - 
2L1D- 
< 
2122- 
2124- 
2127-~ 
2129- 
212L- 
212FE- 
2 0- 
“133-~ 
2139- 
1 和 = 
“8- 
“139- 
2 汇 - 
2140- 
4 
2 90- 
2 14 
2149-~ 
48-~ 
214D-~ 
2 
人 
“= 
<159- 
7= 
9 
2i195C- 
2150- 
2 让 -~ 
2155-~ 
《00- 
2141- 


cf 3 21 
?0 F0 

<0 43 21 
30 让 

8 

8 2 耻 
和 00 

8 53 8 
h9 60 

且 54 时 
19 04 

8 55 用 
h0 52 

h9 2 

8 50 用 
6 5 用 
18 

的 

3 

久 00 交 


5 tf [Et CC 
人 


P 严 电 二 
8 


9 和 
5 
3 和 人 
FF 02 
[9 让 
多 

30 97 
29 浊 
8 1 
AD ea: 用 
和 

0 

0 

0 

60 《7” 路 


Is 
T7T 


CPY 
8 
JS 
BE 
JEY 
5TY 
LDA 
STA 
LIN 
9TR 
1LDN 
3TA 
LIY 
LDO 有 
5TY 
5TA 
[LC 
RATS 
SEC 
UN 


1 
Ni 
对 
疏 人 
MP 
RE 
[4 
RY9 
LA 
AND 
zt 
LD0A 
A9L 
hL 
ASL 
有 SL 
3L 
350 


和 3 
2104 
$2143 
4213B 


$BE52 
4#$00 
有 33 
和 0 
BE54 
址 0 
和 上 旺 55 
人 和 52 
二 2 
$BL50 
RE; 


00004 


于 2 


下 
让 1 
#80 
4 
利用 
BE57 
打下 
邯 2 人 
BO 


BEC7 


2164- 有 好 用 LN 
2167- 。 轨 LS 
2169- 四 LSR 
219- 引 C7 吃 RDOR 
216C- 00 0 BNE 
216E- 有 上 且 人 且 57 
2171- 内 有 LU 
2173- 闻 02 LA 
2175- 上 8 上 胜 8TY 
2178- 最 69 胰 3 
2178- 84 0 STY 
2170- 上 07 65Th 
217F- 和 肥 55 LDA 
218!- 20 了 0 上 且 JSR 
2184- 80 2 BCS 
2186- 2058FC JSR 
2189- 和 6 LD; 
2!88- 耻 32 0 
?18E- FF0 27 BE 
2190- 2058P js 
2193- 8 IN 
2594- 30 8 BNE 
2196- 3 E 


2198~ EF FAO 人 所 
2160- FE5 人 8 的 的 
2148- EC F5 ED E5 提包 
2180- E5 8 30 0 


< FF 
2187- 和 的 0Y 
2189- BILL 96 0 
<jbg- 8 直 了 
2tED- 85 42 9T 
219F- 29 禾 AND 
< FU 4 呈 
2iS- 82022 3 
21kb- hh9 LIDA 
zir8- 8 2 70 
vB- 有 2 LN 
21c8- 10 0 BRPL 
zf- Eee 由 


BE42 


#BEC7 
$2171 
BEC7 
村 60 
#02 
$BEC8 
BEC9 
06 

#07 
#45 
8E70 
42184 
镍 [58 
村 0 
$2196 
#21B7 
村 DE! 


2188 
FF 区 


4 证 
Et ED 


民 一 胃 


Bt09 
外 计 00 
,06 
$221B 
4 2 
村 UF 
2 
$2220 
#301 
42221 
下 42 
$2 02 
计 222 1 


2102- 
21D4- 
2105- 
21D00- 
21D7- 
2tD08- 
2109- 
2108- 
2L! 中 - 
21DF- 
2 让 2- 
2Z14- 
217- 
2 牙 A- 
2 起 0- 
21PF- 
21F2- 
21F4- 
21fF7- 
21F9- 
21f9- 
21fD-~ 
2200- 
2201- 
2204- 
“200- 
2209- 


.2204- 


220- 
2210- 
2212- 
2213- 
2215- 
2217- 
2219- 
2218- 
22 LE= 
2 
2220- 
0 


00 ?9 


AND 
LSR 
LSR 
LSR 
LSR 
PHh 
LI) 
JSR 
PLA 
JSR 
LDX 
SR 
LN 
JSR 
LD) 
JSR 
LIN 
JSR 
IN 
L0h 
0Rh 
5R 
INY 
cPY 
BC 
djSR 
LDN 
AND 
BNE 
DEL 
kLL 
LDA 
人 
5STA 
BINE 
JSR 
LLL 
RTS 
BRK 
BRK 


470 


402 
下 74 


条 0E3 
园 06 
和 F94 
42221 
生 0E3 
806 
和 FF94 
村 全 
轩 DE0 
406 
100) 
轩 80 
4FDED 


42220 
2 人 9 
条 DBE 
和 BE57 
04 

2218 
406 


406 
地 10 
406 
2137 
外 DBE 


Drive 2 Boot 全 


过 个 程式 可 以 让 你 在 进行 非 正 
式 DOS ( 色 非 DO 85， 35 系统 
的 DOS ) 蛙 ， 可 以 简单 地 在 了 一 
085。5 和 过 些 D O5 之 闫 互相 
间 换 使 用 。 

如 果 你 可 以 把 非 正式 的 DO8 
放 在 Drive 上 而 把 DOSS3。5 
的 放 在 Drive 2 ， 在 需要 有 时 ， 可 
彤 随时 Boot Drive 工 改 了 一 
rive 2 不 是 十 分 方便 ? 

Boot Drive 1 是 Appl 
一 e 工 基 本 功能 ， 但 如 何 今 它 可 以 
Boot Drive 23 吃 ? 

在 此 我 代 提 供 的 过 个 程式 使 其 
可 以 Boot Drive 2 的 。 程 式 
是 写 在 1 6 RAM 卡 的 BANK1 
不。 不 过 用 家 可 以 把 它 般 到 其 它 地 
址 不 。 另 外 了 饼 方 便 使 用 。 我 们 把 
它 和 [T& jy 符号 命令 项 全 ， 而 在 地 
址 $9600 至 $9603 了 3 旭 有 -- 
小 程式 用 作 圳 千 之 用 。 


程式 的 辖 人 

程式 井 入 上 时， 可 以 先 放 在 由 地 
址 和 $20 00 有 开始 ， 在 使 用 时 才 由 
傍 夸 载 入 RA 卡 的 $DOO0OO 地 
址 不， 在 链 入 {( 程式 二) 机械 码 合 
s 日 | 控 : 

BSAVE BOOT。A200 

0，IL4949B 
把 它 储 起 。 接 着 再 刍 和 人 程式 ( 2 
的 HLLO 程式 。 志 了 方便 使 用 衣 


个 系 冰 。 用 家 首先 要 准备 一 片 衬 磁 
原 ， 帮 在 Drive 】 上 让 在 链 入 程式 
以 后 ， 按 入 : 
POK 卫 46855，2 
把 在 地 址 $B707? 的 RWTS 程 
陈 加 以 改良 * 再 用 命令 : 
TNIT HELLO 
在 程式 (& ) 储 在 新 的 磁 碟 上 ， 又 
把 程式 ( 工 ) 键 在 过 片 磁 碟 上， 即 
过 片 磁 健 必 须 洽 有 此 两 个 档案。 如 
昌 执 行 此 程式 ， 可 过 : 
RUN HEILILO 
执行 后 会 出 现 : 
D1LAD2& BooT LOADE 
和 
字样 。 如 你 要 boot Drive 2 
* 算 须 用 命 今 : 
信 卫 及 #6，。D2& 
便 可 。， 党 然 你 亦 可 以 用 : 
人 PR#6，D1l 


-10- 


去 房 动 Dr ive 1 。 图 
程式 一 
2000- 9 01 LDA 条 0 
002~ 80 07 87 Th $707 
2009- hh2 00 LDX  #00 
2007- 8C00 LOA 和男 06C 7 
2006- 90 00 9%6 9TA 下 0600 . 
2000- 上 8 MX 
200FE- 上 E0 0 CPX 。 #$0P 
2010~- 00 F5 BNE 和 2007 
2012- 和 人 4 LDA  。 间 节 4 


2014- 
<]17- 
2019- 
20 斤 - 
201E- 
2021- 
2022- 
2024- 
2027- 
2029- 
2028- 
LE- 
2030-~ 
2031- 
2033- 
2030-~ 
2038- 
203h- 
203[- 
203E- 
2041- 
2043- 
2045-~ 
2047- 
2049- 
2048- 
204D- 
204F- 
2051- 
2 
2034- 
2050- 
2058- 
2059- 
2058- 
2050- 
20- 
2061~ 
2063- 
2009- 


8 FS 0 
h9 交 

680 f6 0 
N9 36 

80 F7 03 
的 

04 

80 00 02 
E4 02 

f0 10 

0 40 02 
00 儿 

名 

NM Fi 


Th 


LIDA 
TH 
LIDA 
Th 


LDX 
LIDA 
CPM 
RE 
(WP 
BNE 
DEX 
BNE 
LDh 
(PP 


了 人 


CiP 
8EL 
jj 
CNP 
BC 


8CS 
AD 
351 
EtOR 
3TA 
DEX 
BC 


LIY 
3TY 
INY 
TY 
5TY 
TY 
LA 
STA 


L0A- 


3TA 


403F5 


和 0 
$03F6 
人 9 
$0-7 


计 04 
40200，) 
夫人 2 
42041 
40200, 
420 了 E 


$2024 
30205 
儿 和 3 
2054 
和 2 
$2054 
条 9006 
你 3 
$20 东 
村 38 
$20 芋 
人 90 
针 1 
相生 0 
4 


2024 


休 直 人 
《3 


节 3[ 
外 FL 
FF 
休 $03 
442 
1 
3 


--11l- 


2067- 6 旦 引 9TA 43F 
2049- 由 FF LIA 4FF 
204B- 95 要 STA 4 
2000- 202CF JSR 针 E2 
2070- NM 02? LIY 。 困 02 
2072- 有 隐 9800 LA 和 098Y 
2075- 9 FE sTA (夺目 
2077- 8 EY 

2078- 10 P 3PL 42072 
207A- AN0 39 LIY 和 39 
207f- 和 002 LA 40205 
207F- 18 CLC 

2080- 的 59 AIC 条 59 
2082- 9 FE STR ( 寺 E) 
2084- 如 让 00 JP (400FE) 
2087- 信 


2089- BR 3 20 44 20 88 [CD 4C 
2070- 22 00 2C 8 00 4 59 IE 
2098- 2C 8A [0 


程式 三 


ti0 609U8 170 

120 PIKE -~ 16247,0，POKE -~ 1642 
47,0 

130 PRINT CHRS 14)*8LOAD 8B007， 
AD000， 

140 POKE 60,0 POKE 61 ,249，POKE 
62255 POKE 63,255: POKE 4 
0 POKE 67,248 

150 CALL 708 

区 Ho 内 1 =“D17D2 300T LOADE 
0 60SUB 190:，END 

170 FOR A = 768 T0 782 READ 8，POKE 
Ah B: 全 XT ，RETURN 

180 0ATA 160,0 352444254，44 130 
1192,3210,208,44， 138 192,90 

190 HThB 20 - 【LEN 《NS)) /2 PR]JNT 
人 RETURN 


AMEEERGCO 一 


Applesoft BANRSLC 
扩展 功能 命令 


Applesoft BASIC 在 革 
一 方面 来 竞 的确 是 十 分 完备 。， 但 是 
比 起 新 推出 的 BASIC 版 本 来 雪 。 
却 又 似乎 差 了 些 ， 需 此 我 们 决定 把 
它 的 命令 功能 强化 。 

AM PERGO 新 夫 强 命令 包括 有 
GO0OSUB。.GoTO,.0N G0T0，.0 
一 N GOSUB 及 工 IST 和 做 个 命 合 


O 〇 


AMPERGO 命令 使 用 法 


& GOSUB 和 &GoTO 

G08UB 命 分 机 有 以 下 三 性 形 
式 : 
1 &G0OSUB << 行 号 > 


2 GoOSUB 访 标 记 > 
3 区 GOSUBHD < 二 列 式 > 

所 有 AMPERGO 命 分 贡 以 | 《 
」 符 起 首 ; 上 面 的 第 1 项 人 GO 
一 SUB 即 等 於 Applesoft 的 
GO0SUB 功能 。 第 2 项 的 & 6 
一 SUB 所 栋 记 > 是 比较 重要 的 ， 
它 把 正 第 呼叫 子 程式 的 能 力 。 由 行 
号 伸延 至 标记 ， 而 过 些 人 怪 记 必须 以 
下 形式 出 现 : 
久 > 所 标 攻 

在 程式 1 不 的 BASIC 泵 德 
程式 ， 便 是 使 用 了 & Go98UB << 标 
记 >> ; 标记 足 一 串 字 符 ， 但 是 过 些 
宁 符 不 可 以 是 保留 宝 。 即 命 分 名 寡 
内 有 垮 在 输 人 时 Applesoft 合 


把 它 党 作 命 分 统 主 成 byte， 如 
果 一 定 要 使 用 便 需 要 加 上 字符 括号 
「 2” 了， 例如 可 以 用 命令 : 

& GOSUB“ FREE MEMOR 

一 了 33 

和 人 “4 卫 RE MEMORY ” 
面 如 果 你 的 宁 和 是 需要 行 空格 的 人 
即 上 例 般 ) ， 加 上 字符 括 吕 亦 是 必 
须 的 。， 沉 然 不 加 亦 可 以 。 

而 在 使 用 机 到 有 时 亦 殉 留心 到 释 
数 的 使 用 ， 例 如 程式 中 的 其 一 行 : 

I0 A=-100:&dG0oOSUEB 

( 有 ) 

&G0OSUB 的 功能 便 等 於 GOSUT 
10 0 的 功能 ， 而 : 
I0 有 和 =“ 开 卫 卫 S”: K 
GOSUB ( AS$ ) 
则 会 找寻 标记 名 : 

久之 玉 卫 卫 S 
的 子 程式 ， 在 示 箔 程式 ( 工 ) 中 ， 
& GO0SUB“ 卫 RROR ”的 使 用 。 便 
是 由 於 有 网 数 卫 及 的 使 用 。， 所 以 卫 
一 RROR 使 用 空 符 括 号 疹 ; 而 程式 
(2 ) 则 是 &GOTO 之 示范 程式 

在 使 用 ON GO0TO 或 ON GO 
一 SUB 蛙 ， 允 数 行 可 能 会 是 有 规 
律 的 行 号 ， 例 如 : 

ON A 6G08SUB 100 ，2 
00。300，400，500 
那 床 第 3 贰 的 功能 便 可 以 将 其 代 
蔡 成 : 

&GOSUB (1000 求 人) 
其 实在 其 它 大 多 数 的 BASIC 都 所 


全 


有 过 些 功 能 ， 而 现在 只 是 生 App 1 
一 eSoft BASIC 之 不 足 而 已 。 


&OoON GOTO 和 AoOoNy GOSUB 


过 两 个 命 分 所 使 用 的 获 数 和 广 
GOTO ~&G0o8SUB 一 样 是 可 以 篇 
行 号 ， 概 记 及 列 式 ;， 例 如 : 
100A$=“JUMPB”: A= 
200:A%=404 
110&O0ON YY GOSUB (A 
$)、JUMP、(Ail、5009 
、 只 5 


文 工 LISI 


至 於 AMPERGO 的 最 后 一 个 命 
今 便 是 人 工 IST， 你 在 庆 个 命令 之 
后 必须 加 上 行 号 。， 标 记 或 列 式 ， 例 
加 人 LIST MAJAIJ 和 等 。 

如 果 你 想 印 列 出 多 蕉 一 行 的 萌 
* 你 便 需 要 在 & 工 IST 的 套数 字符 
后 加 上 一 个 去 号 。， 例 如 : 

人 LIST MAJAN， 

要 注意 ，& 作 工 IST 臣 不 支援 多 
个 参数 即 : 

& LIST<< 醒 肥 工 > 。， 扫 标 

放 忆 之 
划 让 会 印 列 & > 区 标 记 】 之 之 内 容 


D 


错误 遍 息 


AMEERRGO 的 命令 如 果 使 用 未 
当 。，Apple 工 亦 会 产生 三 香 鳝 孝 
导 息 。， 包括 : 
Syntax Error 


。 在 命 分 上 没有 [& 或 上 >j 
符号 

。 标 记 状 首 两 个 字符 沙 不 足 成 坊 
Applesoft 之 实 变 数 

。 标 记 少 了 字符 括号 引 至 钳 履 


IIilegal 


一 Of 


Quantitly Err 


。 标记 长 度 人 震 埠 ( 例如 : 人 6 一 
0TOo( A$) 而 A$ 是 空 的 ) 
。 列 式 之 值 坊 负数 ( 例如: 文 6 


一 0OTO( 一 工 ) 
Undefined Statment 芋 
一 YToOr 


。 没 有 所 要 跳 至 的 标 臣 
。 在 标记 不 没有 [>」 符 就 


程式 的 输入 


程式 ( 5 ) 便 是 AMPERGO 

的 主 程 式 。 当 程式 输入 和 后 可 以 用 : 
BSAVB AMEERGO，。 呈 有 9 
400。 工 $1LC35 储 在 磁 矶 上 。 
程式 执行 和 后。 会 自动 设 定 芋 一 
ITMEM 认 地 址 $9000 处 ， 及 『 
& | 过 坦 命令。 如 果 你 想 在 你 的 程 
式 中 使 用 AMPRERGO 命令， 最 好 
加 上 了 BRUN AMPERGO 汉 便 命 今 
。， 计 好 像 示 和 范 程 式 ( 工 ) 及 (二 ) 


程式 一 


PRINT CHR 村 【4) "BRUN 有 HPER6D0 


& 608UB8 INIT 

《60SU8 USER TMPUT :FDIS = 
)16 

60SU8 USER INPUT 

PRINT ;PRIN "THE SUNM DF 


PRINT FDIB; ”AND“; 0763 ”了 TI9 
“FDIG6 + 0I6 

END 

& >》 USER INPUT 

PRINT PRINT “ENTER 和 DIGIT 
kk >》DI6IT: 人 ET D 人 6 

CALL CLRE0S 

k& 608SUB 《HECK 

IF NOT ER THEN PRINT DTI6$: 
RETURN 

《 60SUB ERROR" 发 6070 Di; 


汪汪 


吕 


240 
250 


260 


270 


280 


300 


10 
320 


330 
340 


350 
360 


61T 

《 》 LNHEKJER > 0 

LET 1I6 = WAL (0DI6 和 IF (0 
I6) THEN RETURN 

IF 0[I64《 >》 0” THEN 琴 = 1! 


IF 0I6 和 = CHR$$ 《3) THEN 5STOP 


RETURN 
&%《 INIT: TEXT ，H0 人 
LET CLRE05 = - 958 RETURN 


& 》 ”ERROR" 

LET HP0 = P05 (0) + 1VFP0 = 
PEEKA (57 + 1 

HTAB 103 VTAB 24:， INVERSE 
PRINT "NOT 和 DI6IT，REENTER" 


| 
HTAB HPO，VTAB VP0 NORNAL 
RETURN 


口 


程 支 二 


10 PRINT CHRS 《4) "BRUN ANPER60" :& 60T0 TE9T2 
20 60T0 TEST 4 必 》TEST2: PRINT PEEK 《66 
30 % ，》 玫 ST1 PRINMT 【HR 本 《337 : 玫 60T0 TEST1 

程式 三 
9400- 的 00 LIDA 竺 00 9444- 上 0 和 BE8 394hA5 
?9402~- 85 753 5TA 条 73 9446- [9 380 CHP 多 80 
9404- 8 年 5TA 46F 9446- 0 12 丝 & 她 4 
?400- 全 9 LA 村 90 944A- 22083700 JR 0087 
9408- 85 7 5T 放 节 74 9440- 4CC9 IE  JMP  $DEC9 
?408- 85 70 5TA 和 70 9450- MO 0 LIY 胃 01 
9400- 人 9 417 LA 杀人 7 9452- 8B1 88 LIDA 0$8B) YY 
?40E- 8D Fo0 5T 四 03F6 9454- FFO F4 BE 多 44 
9411- 和 隐 中 LA 林 94 ?456- [9 3 LNMP 和 3 有 
9413-  BDF703 5 $03F7 9456-  F0F0 BEQ 。 $944 
9414- 的 RTS ?45h- [bo FE DEC 村 
?9417- 和 00 LI 站 00 945C- 和 角 反 LDA 村 03 
9419- 86 STX 和 镍 945Et- 200603 USR 名 306 
9418- [9 84 CNMP 亲征 84 946L- 后 B9 L0A 489 
9410- 00 17 BNE 级 438 9465- 4 PH 
?4tF- 208100 JSN 40081 9464- 站 8 LA 和 8 
9422- 20FfE4 JSR 毗 oF8 9466- 49 PH 
9423- 仙 ThY ?467- 的 7 LI 和 16 
94260- [6 有 DEC 轴 | 39469- 四 PH 
9428-  F0 17 BEQ 49441 9466- 的 75 LDA 乡 7 
?421- 208100 JR 5008! ?44C- 物 PHA 
9420-  F0 0 BEQ 49435 9460- 币 80 L0h 。 梦 80 
?4 奸 - 《9 2 CNMP 。 栖 2 946F- 48 PHA 
9431- 0 F7 BNE 对 9342 9470- 20 后 外 SR 委 45 
9433- FF1 BEQ 49426 94735- 24 FE 8I1 儿 E 
?9435- 60 RT5 ?9475- 300 8 的 47 有 
?436- 9 8 CNMP 。 人 本 BC 9477- 4CD2D7 JP 如 702 
?9438-  F0 16 BEQR 450 947h- 68 PLA 
943A- 《9 中 F CNMP 人 CF 9478- 的 PLA 
943C- 00 04 BNE 49442 947C- 85 75 9TA 和 75 
94xE- 4 9%509 JWMHP 和 995 94E- 的 PLAN 
9441- 39 TYh 947F- 的 70 9TA 1 
9442- [9 AB CHP 村 人 3 948L1- 的 PLA 


1 


9482- 
9464- 
9465- 
9467- 
9468- 
9489~ 
948C- 
94BE- 
9490- 
9492- 
9494- 
9497- 


9498- 


?49B- 
9490- 
94%F- 
94h2- 
94 全 = 
94h8- 
94AA- 
94AC- 
94AE- 
9431- 
948Y- 
94 史 5- 
9488- 
948A-~ 
94BC- 
94 耻 - 
3400- 
94[3- 
94C6- 
94[9- 
94CC- 
94(F - 
3402- 
9404- 
9404- 
9409- 
94DA-~ 


85 8 
的 

8 下 
8 

b8 

20 ?5 09 
朱 8 
00 02 

(6 89 

c 88 

20 87 00 
he 

20 8B1 00 
c0 2 

F0 全 

4 DA 06 
4 DA 0 
20 81 00 
h2 00 

86 FF 

380 03 

4 引 09 
9 28 

00 2 


99 87 00 
8 
0 f8 


5Th 
RLA 
STA 
PLA 
PLAN 
JSR 
0 
BNE 
DEC 
EL 
JSR 
ThAY 
JSR 
CPY 
陛 
JP 
J 攻 
JSR 
LI) 
ST) 
BCS 


kh 


BNE 


JSR 
BIT 
8 
BIT 
8 
JSR 
jj 
Ji 
JP 
j 时 
JSR 
LIY 
L4 
Th 
卫 Y 
BNE 


和 8 


4 


$0995 
$BB 
49492 
人 9 
$8B8 
40087 


40031 
420 
人 442 
和 0DA 
$06D 
400B] 
条 00 
$F 
9481 
409 江 
栖 28 
全 4E2 
4DE3: 
ll 
494CF 
外 2 
委 405 
力 72 
40941 
和 [09 
托 199 
$097 
外 600 


02 


(0 Y 
$0087Y 


49404 


二 十 三 = 


94DC- 
?4 路- 
94E0- 
94E1- 
42- 
94E4- 
94E4-~ 
94E9- 
?4E4- 
94EC- 
?4EE-~ 
94F1- 
94F4- 
94FS- 
94F7- 
94F8- 
94FA- 
94FL- 
94FE- 
?500- 
9502- 
9504- 
?504- 
?508- 
3504- 
950LC- 
950E- 
9510- 
9512- 
?1 
?516- 
?7518- 
1 
9 1 
95 匡 - 
?520- 
9522- 
9525- 
9527- 
95329- 


LDA 
3 


MX 
Si 
LI 
35TA 
LDA 
8TA 
L0Y 
0 
85Th 
)EY 
BNE 
| 
BE 
LI 
了 
CNP 
BE 
chP 
B 人 E 
IN 
SAME 
ML 
8 性 
pp 
BEQ 
5Th 
]NY 
CPY 
BE 
LN 
5T 有 
LA 


JSR 
3T 
STY 
LDA 


(4 的 ) ， 
9409 


针 f 
4BB 
406 
4B9 
407 
未 04 
495BE， 
402F8， 


$94FF 


495 寺 
(和 8) ， 
49516 
村 3 
4951f 
时 22 
4950 
438 
负 导 7 
485 
旬 儿 7 
林 20 
4951 
302FC， 


站 0 2 
494F7 
4 
$8B 

人 $0 2 
$89 
4DFE3 
4A0 
1 
488 


9523- 
9520- 
952- 
9531- 
9533- 
9535- 
9557- 
9538- 
953A- 
征 汪 ~- 
955F -~ 
9541- 
多 43- 
7546- 
3948- 
794h- 
954C- 
和 5 四 -~ 
9550- 
?995 
7993- 
?555- 
9590- 
9558- 
955A- 
9555- 
955D- 
955F- 
9561-~ 
9543- 
9564- 
9560- 
9569- 
9506- 
954L-~ 
9 人 外 ~ 
9570- 
9572- 
9575~ 
生 半 - 


LDX 


JSR 
BCS 
LDY 


杀 FF 
49406 
村 04 
[40) 
49543 
49[ 


[和 0) Y 
498 
49581 
姐 02 
39556 
49564 
494f 
4FF 

拉 04 
49[ 
(SN0) Y 


498 
(和 0 Y 


149B) YY 
475 
450 


(498) 
476 
4$51 


467 
4366 
401 
498 

35[ 
($98B) 
49584 
49581 
4958E 
笠 00 


9579- 
9578- 
957- 
39570- 
95F- 
?3 时 -~ 
958- 
?9565- 
9997- 
9589- 
958N- 
958C- 
?95 了 E- 
9590- 
9592- 
9594- 
9596~ 
9599- 
955h- 
959%L- 
?5 号 - 
35 人 0- 
9 和 ~ 
95h2- 


”95A4- 


Er 旭 


95A6- 
?951N8- 
?5AhA- 
3354- 
?95 化 -~ 
9580- 
9582-~ 
9584- 
9585- 
9584- 
9589- 
9586- 
95 队 -~ 
958F ~ 
95C2- 


($98) 


(98) ,Y 
4956h 
404 

( 仙 8Y 
本人 F 
49584 


(898)Y 
四 [F 
49584 
498 
录 05 
488 
49[ 
400 
489 
4 
畦 FF 


4586 
(06 
49586 
竺 3 
495B6 
寻 2 

和 58 
( 扫 8) 
495h0 


4 和 0998 
400387 
49584 


2420 


SHAPE TABLE 助 填 


条 个 工具 程式 可 以 助 你 ， 以 个 
同 的 SCAE 卫 了 L 0LOR 和 ROOTI 
去 观察 磁 碟 内 的 SHAE 了 TAB 工 
档案 中 的 图 形 。 

在 使 用 一 个 表 和 后 双 可 以 再 使 用 
另外 一 个 。 如 果 你 是 使 用 ProD9 
一 S 而 没有 8 0 column 晤 示 能 力 
的 。 可 以 把 行 号 20 最 和 后 的 : 

PRINT D9 ;“CATALOG 


改 筷 
PRINT Di， “CAT9 


以 方便 查看 磁 碟 目 俏 
国 


程式 一 


100 HOME ，PRINT “HGR SHAPE TABL 

E ASSISTANT ,2 车 = CHR 和 (4] 
PKE 342 PRINT 

110 PRINT “PUT YOUR DISK IN THE 

DIRVE，THEN INPUT “PRESS《 

RETURN>。"，R1L$5 PRINT 了 全 Ch 


TAL0 人 6 

120 INPUT “FILE NANME OF SHAPE TA 
BLE:， “站 和 8 

130 PRINT 0$ 8BLOAD “让 本 ONERR 
60T0 220 

140 AL = PEFK {( - 21902)34A22 = 
PEEK ( - 21901)3A3% = PEEK 
(人 + 256 至 及 22) 

150 POKE 232) 人 At POKE 23 有 人 

160 HSBR ，VTAB 24， PRINT 全 ”0 
NTAINS 。 AS ”SHAPE CHR$ 
(32 + (人 >》 1 主 51 

170 INPUT ” SCALE，”;R2X INPUT 
2 HCOLOR:，“ ,RS323 INPUT 
"，  ROTATION:， ;R4X INPUT 
"SHAPE NUMBER“ 只 57 

180 SCALEs R2X，HCOLOR= RS ROT= 
R42 

190 DRAW RSX AT 120,65 

200 VTAB 24: HTAB 23: INPUT “AND 
THER2? YAN 》“;R6 和 IF R64 = 
Y” THEN 160 

210 VThAB 24; HTAB 21 INPUT “ANO0 
THER TABLE 2 了》 ”全 7 宴 】 了 IF 尺 7 本 = 
"Y。 THEN TEXT ，RUN 

220 POKE 34,0 TEXT END 
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Appjlesoft 秽 窗 





你 有 没有 想 过 你 的 Apple 工 
可 以 所 有 如 工 ISA 、Macintos 
一 斌 上 舱 的 视窗 功能 ?当然 你 可 能 已 
所 有 Mouse 了 Paint 软件 和 老鼠 
仔 ， 但 是 Mouse Paint 和 是 一 
借用 作答 加 的 软件 ; 如 果 Apple 
一 9oft 也 可 以 有 坊 徐 .。， 党 不 是 好 
得 多 ? 

其 彰 要 做 一 个 粗 简 的 视窗 站 不 
是 一 件 太 困 闪 的 事 ; 不 过 做 视窗 系 
和 统 是 否 有 彰 在 的 用 途 呢 ? 如 果 你 想 
对 某 些 眉 落 进行 和 编辑， 和 视窗 便 可 以 
训 供 杭 辑 之 用 。 
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例如 在 AppleSoft BASI 
一 & 作 和 编辑 时 ， 你 需要 翻 抄 某 一 段 
落 及 程式 另 一 段 洛 於 一 起 有 蛙 。， 如 果 
你 有 两 个 视窗 那 麻 工 作 起 来 便 十 分 
测 便 。 


驻 字 旺 示 界限 


攻 果 的 文字 显示 昼 面 。 其 实 是 
可 以 狂 校 其 性 面 的 。 在 圭 真 的 地 址 
2 至 3 5 便 是 控制 着 伍 面 的 大 小 
。 我 们 可 以 用 POK 卫 命令 把 需要 
的 参数 输入 ; 例如 E0KB 352&， 


1 0 ， 那 麻 在 画面 题 示 时 ， 磊 面 的 
定位 便 会 由 第 上 0 个 字符 开始 。 即 
是 左面 有 1 0 个 空位 ， 至 於 其 它 地 
址 的 用 法 见 表 ( 工 )。 

你 可 以 自己 演武 一 人 利用 委 中 
的 资料 ， 党 试 一 下 改 好 画面 的 显示 
万 式 。 


程式 控制 视窗 


以 下 提供 两 个 程式 。 一 个 十 用 
AppleSoft BASIC 雹 成 的 示 
条 程 式 ( 工 ) ， 它 示范 了 以 程 陈 控 
制 的 先 窗 效果 。 各 更 果 用 家 可 以 和 从 
其 中 得 到 雪 感 、 创 出 自己 的 先 窗 程 
陈 。 

至 於 另 一 个 程式 (2 ) 。 则 和 定 
一 个 机 械 语 言 程式 ， 它 把 画 面 分 成 
上 下 两 部 份 ， 你 可 以 用 指令 CAILL 
7 7 1 进入 上 站 部 画面 ， 而 用 《一 
ALIEL ?79 4 进 大 下 牛 部 必 面 。， 研 
要 用 命令 T 卫 XT 便 可 返回 正 芝 的 


人 


100 0INH NSS(24) 

110 HOME ，PRINT ?PRINT TAB1 1 
1) "WINDOWS DEMONSTRATIDN9” 

120 PRINMT PRINT TAB( 15)28Y 
PPLE USER"， PRINT ，PRINT 

130 foR J=>17T08 

140 FORK sz 1 T0 40: PRINT CHRY 
(04 4 26 RN 《1)) 3 NEXT 
PRINT 

130 NEIT 

160 TAB 25: PRJNT “PRESS ANY KE 
Y T0 HLT' 
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3 3 | 天 沽 定 全 | 0 一 3 9 
3 5 | 诡 浊 定位 | 0 一 2 3 


人 数 箱 转 


状态 。 

而 地 址 ? 7 0 是 存 着 分 割 画面 
的 比例 数目 ， 你 可 以 利用 了 OK 了 
70O 。Dn 作出 通 当 的 更 改 。 


程式 的 储存 


AppleSoft BASLICLC 的 程 
式 ( 工 ) 可 以 : 
SAVE DEMO 
储 起 来 ， 而 机 械 落 部 份 则 可 以 用 : 
BSAVE WINDOWBD， 人员 
3s00，L940 
储存 起 来 。 转 


和 1 控制 文字 画面 地 址 及 其 功能 






170 有 = ti2WT = 10 风 = 10 妥 = 
5 605UB 50 

180 PRINMT PRINT “60 【T2?” 

190 60S48 340 

2600 608UB 460 

210 下 PEEK (49152) 》128 THEN 
下 XT 2 HONE 上 村 

220 册 =5WT = 13 册 = 25:WB = 7 

230 603U8 350 

240 VTAB 人 T + 2 HTAB 4 PRINT ” 
NOTICE TNE TEXT IS HTAB 43 
PRINT “RESTORED CORRECTLY,， 


250 60SU8 340 

260 60SU8 480 

270 IF PEEK (49152) 》128 THEN 

TEXT :HOME :ENB 

280 WJ = 10; 要 :> 10， 605UB 350 

290 FOR J=17025:， PRINT ， ，; 
ED NEIT ] 

PRINT ，pPRINT SCROLLIN6 1S 

各 TONATIC。 

60SUB 340:; 60SU8 480 

IF PEEK (49152) 》128 THEN 
TEXT : HOME ，END 

60T70 170 

FOR = 1 TO 1506: NEXT ，RETURN 


“00 


10 


“20 


330 
4 


30M=1l04+128a 7 -1-68 

+ IMT (LIWMT -1 79)y 40 
# INT (MT / 8.5) 

360 此 = 月 

30 FORW NTN+ 央 -1 
5( 用 ) = 5 

380 FOR 账 = 1 T0 出 :WS$(W) = 
8( 格 ) + CHR 本 (PEEK 《WA + 
有 L+ 上 - 1 NEXT 由 

390 POKE 且 + 册 ,32: POKE W + 
L+ 刷 -132 

400 上 月 = 腿 +128: IF 油 =2089 THEH 

Na 1104 

IF 舱 = 2048 THEN Wh = 1064 

NEXT 

FOR 有 = 1 T0 出 POKE 6 + 

岂 + 有 -132; POKE 崩 - 12 

8+9844 (ha 1064 0R 册 = 

1104) + 肌 + 用 - 1 32; 人 EXT 

册 

POKE 32, 岂 + 1 POKE 33 ,出 - 

2 

POKE 34,WT: POKE 35,MT + 有 - 

2 

HOME 


410 
420 
430 


440 
430 


460 


E 


470 
480 
490 
500 


RETURN 

POKE 32,0; POKE 33,40 . 

FOKE 4 0 POKE 35，24 

FORW= 杂 TO0 杂 + 如 -13VThB 
W; HTAB 筷 + 1 PRINT 3 碌 人 

J} 3 人 EXT 风 


510 RETURN 

程式 二 

0300- 17 13 0 

0303~ ”后 25 LIA  $25 
0305- 所 0003 5 5$001 
03508- 人 60 的 LN 40300 
03508B- ”的 25 6ThA  $25 
0500- 有 0 LIDA 和 00 
030F- 83 22 STA 422 
03lt~- 和 人 0020 LA 50302 
0514- 85 23 5TA 23 
0316~ 20 34 03 JSR  $0334 
0319- “00 RTS 

051N- 的 25 LIDA 《25 
0351IC- 有 0003 5Th 40300 
SiF- hoi03 LA 8$0301 
03522- 的 25 8Th 5$25 
024- 有 0203 LA 50302 
0327- 18 (kLL 

0328- 69 01 ADC 未 0 
032hA- 的 22 3TA ，$22 
032- 要] LIDA 和 18 
052E- 8 23 STA $23 
03530- 203403 USR  $0334 
03353- ”的 RTS 

0544- 0 的 LN 40302 
03357-~- 2024FC JSR 儿 C24 
0353A- 人 2 27 LDX 和 27 
0353C- 1M 了 LIA 和 BD 
055E- 20 FOFD JSR 外 0DFO 
0341- 1 IDEX 

03542- ID0 FA BNE  $05 革 
0544- 60 RTS 


JoyPAINT 稚 图 软件 





台 是 一 个 结构 简 晶 的 检 图 软件 ”在 蒙 幕 上 塘 图 





* 原意 是 供 小 孩子 们 使 用 的 ， 所 以 
在 车 构 上 十 分 简单 。 使 用 运 个 软件， 存 需 链 人 有 一 
整个 程式 是 用 Applesoft UN<RETURN> 便 可 ，。 它 首先 
BASIC 寓 成 的 ; 在 程式 中 行 号 5 全 出 现 一 个 遗 择 表 ， 包 托 以 下 的 项 
00~52 0 所 载 的 ,是 利用 命 舍 “日 : 
POKB 馆 入 的 Shape Table <1> IOAD A PICTURB 
数据 ， 而 在 行 号 1 50 。 是 用 作 检 “ <2> SAV 了 BEE A PICTURE 
查 以 上 的 办 入 工作 。 <<3> START OR QUIT 
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如 朱 你 准 有 人 磁 碟 机 。 便 可 以 忽略 第 
<1 > 和 <<2 > 项 。 直 接 按 下 键 『 
5 JJ， 运 肝 会 问 你 玩 用 烩 履 与 否 。 
如 果 按 下 [Q 表示 不 用 。 如 果 按 
下 <REIURN>> 便 会 进入 答 图 世 
界 。 

葵 图 画面 会 在 一 个 白色 框 之 内 
* 其 左下 角 有 一 标 甘 。 表 示 烩 出 的 
颜色 和 大 小 。 一 个 十 字 游 醒 会 出 现 
在 豆 面 上， 你 可 以 用 Joystick 
控制 它 的 方向 ， 研 要 你 按 下 Joys 
一 tick 上 bottom Ooj ， 便 
可 以 在 游标 处 稚 上 靖 色 ， 而 答 上 的 
方块 大 小 。 可 以 利用 键 条 上 的 空格 
键 (SPACE BAR ) 法 改 灵 其 大 小 
大 小 改 炙 的 情况 。 可 以 在 左下 角 
处 看 到 ， 共 有 三 秆 示 同 的 大 小 可 供 
玩 用 。 

而 在 Joys tick 上 的 另 一 侦 
键 Jbottom 1 4」， 是 用 作 颜 色 
的 冰 择 。 共 有 四 种 颜色 可 供 愤 择 。 

如 果 玩 完 合 可 以 按 忆 卫 8C>> 
键 返回 JUYMENU 渤 择 表 ， 再 技 扫 
4 > 及 <C<Q> 返 回 BASIC 。 


国 案 的 存 取 


在 JoyMENU 渤 择 表 的 第 < 
2& > 项 目 ， 可 以 费 你 把 刚 辟 好 的 加 
案 蔚 存在 磁 碟 上 ， 当 你 在 导 择 表 丰 
按 和 < 和 < 之 字 ， 使 会 出 现 : 

了 工 工 卫 NAML 
请 你 输入 要 储存 图 案 的 档案 名 字 ，。 
再 按 <REIURN > 便 可 。， 在 储存 








工作 完成 和 后 会 返回 愤 择 和 。 

如 果 你 要 把 包 存 芷 磁 奉 上 的 加 
案 取 回 ， 可 以 在 导 择 表 不 按 << 寺 > 
"， 它 同样 会 出 现 

上 工 工 卫 NAME 了  : 
宙 要 你 键入 想 载 人 的 档案 名 字 ，。 按 
<RETURN > 键 ， 划 脑 的 画面 便 
会 进入 高 解 像 图 ; 跟着 你 便 会 看 到 
图 案 的 栽 入 过 程 ， 而 载 人 和 后 ， 便 会 
出 现 游 标 ，。 你 可 以 修改 此 略 了 。 





100 RHOIE ，VTAB (2)，HTAB 《1S)， PRINT 
"JoyPAINT :SCALE= 1 ROT= 0 


110 EP = ,30;BR s 2;X9 = 0) 久 = 5 
0YL = S0IL = 5 = 0 

120 FORJ =1T033 READ HX POKE 
16383 + JIHXSU = 5 + HX NEX 了 
了 

130 IFS5U( 》!6t2 THEN TEXT ， 
HOME ， PRINT “TYPO IN DATA 
LINES" EN 

140 VTAB (10 :HTAB (0 PRINT 
人 1》 LO06D APICTURE" 

150 WTAB (12)， HTAB (10)， PRINT 


二 


“27》 SAVE 有 PICTURE" 

160 VTAB 144) HTAB (10)， PRINT 
《3S》 5TART DR 8UIT。 

170Az PEEK ( - 163841 

!90 IFAzs177 THEN 60508 5$30: 60SU8 
550: PRINT CHR 汪 (4) "DBLOAD 
;6 ,NA42000" 605UB 270 

200 IFAN>=i78 THEN 609U8 530，PRINT 
CHR 《4) BSAVEY SB，A200 
0,L42000":， HOLE ，VTAB 12)8 HTAB 
(15)， PRINT “oOYNMENU" 60T0 
140 

210 IFA= 179 THEN VTAB (201: PRINT 
"PRESS 《RETURN》 TO START，OR 
PRESS 《8>》T0 0UIT*，60T0 5 
0 

220 860T0 170 

230 60SUB 550 

240 HCOLORz 3 HPLOT 0,0 7T0 2759， 
0 T0 279,191 T0 0,191 T0 0),0 


250 605U8 370 
260 HEOLOR= EL YXDRAN 1 AT XL YL 


2720Xz=21793 PIHL (ON 17 236: = 
EP#+ANL+L-EP) 3 XXX 2 
4 IMT (X A 2) + XS 
280 XDRAH 1 RAT XLYL 
290Y= 1914 PDL (1) 7256Y = 
EPEYL+t-EpP)4Y 
300 IF PEEK (~- 10287) 》127 THEN 
DRAU BR RTX，Y 
0 XORRAN LT ART 
320 人 L=X YL=Y 
330 IF PEEK ( - 162866) 》127 THEN 
605U8 370 
340 IF PEEK ( - 16384) = 155 THEN 
TEXT ，HONE :VTAB 《2]) HTAB 
(15)， PRINT "JoyMENU":， 6070 
140 


元 汪 


350 IF PEEK {( - 163984) = 160 THEN 
60SUB 450 
360 60T0 270 
70 i 尼 =0AND XS = DTHEN XS 
= {: 60T0 440 
3J60 IfcLs0OTIHENLL=s3SNS = 1 
} 60T0 440 
590 IF 忆 = 3THEN 420 
400 IFXS=0OTHN EL = 0: 60T0 
440 
410 X9 = 0 60T0 440 
420 IF JS =TTHEN XS > 0 60T70 
440 
4350 XS = 1CL zs 7 60T0 440 
440 60SUB 470: RETURN 
450 BR = BR + 1 IF SR >》4THEN 8B 
Rz 2 
440 60SUB 470: RETURN 
470 HECOLORs 0 DRAN 2 AT 7 1855 DRAN 
2 AT 6,195! HCOLOR= 人 L 
4860 DRAW BR AT 6 + X9 ;165 
490 POKE -~ 14368,03 RETUR 
500 0hT8 40101020,0280 31， 
030149 
510 BATA 173;219，246 ,24 8,50，7， 
0,36,108,54，110 
520 0hTA 3053560255 108，54 0 4 
0 
》 

530 VTAB (20)， HTAB 9) PRINT ” 
540 VTAB (201: HTAB (9) INPUT " 
FILENANME， “3 多 RETURN 
5990 POKE 232,0， POKE 233, 4 HE6R 

: POKE - 16302403 RETURN 
500 有 = PEEK ( =- 18384)， IF A《 
》141 AND A《 》209 THEN 5 
0 
570 JFAh=209 THEN TEXT : HONE 
;上 
580 60T0 230 


估 低 解 胃 到 届 解 角 


闻 ( 1 ) 低 解 你 四 RANM 和 与 性 面 组 粮 
介面 像素 


1 BYTE RA 人 2 





要 做 一 个 低 解 朝 圆 案 物 比 高 解 
象 怎 简 利 及 容易 ， 如 果 你 在 低 解 象 
图 裹 雷 了 一 个 而 案 ， 如 果 想 用 打印 
机 印 列 出 来 便 可 能 有 些 麻烦 ， 因 人 筷 
大 部 份 的 打印 机 介面 程式 。 部 只 用 
作 印 列 高 解 象 图 案 。 

了 项 在 我 们 提供 一 个 可 以 把 低 解 
象 赂 案 圭 杰 人 起 高 解 象 图 案 的 程式 ， 
使 你 可 以 通过 打印 机 把 它 印 列 出 来 


O 


基本 知识 
首先 导 我 们 重 疯 一 些 已 知 的 资 


COLOR 1i- 深 和 红色 
”中 一 | 一 COLOR 6- 检 色 
| 





料 。 它 是 赐 作 过 个 程式 必须 先知 的 

条件。 

。 低 解 象 图 剖面 估 960pbytes 
( 40 行 X24 列 )，。 估 地 址 $ 
400 至 $7 卫 卫 ( 符 号 $ 表 示 ， 
1 6 浊 数 ) 。 

。 每 个 by te 可 以 控制 低 解 象 亚 面 
的 两 个 像素 ( Pixel ) ， 过 两 
个 象 霸 是 上 下 亚 列 的 ， 过 使 到 低 
解 象 的 解 象 度 。 可 过 409Xx48 
个 象 素 。 

。 商 解 象 图 如 面 估 7680 byte 
一 S， 是 8 倍 於 低 解 象 图 案 画 面 


二 


咖 (2) 低 解 像 图 至 高 解 像 图 R A 共 地 址 之 天保 


低 解 像 


高 解 像 





(40 行 X1L92 列 )， 高 解 象 
图 案 第 工 页 估 地 址 83<0900 宇 
$SsITEE， 我 人 把 情 看 戌 低 
解 象 的 一 个 byte 等 於 8 个 高 解 
象 的 bytes ， 或 者 一 个 低 解 家 
的 象 素 等 於 4 个 高 解 象 图 的 象 素 
。 把 任何 低 解 象 图 的 象 素 地 址 加 上 
$ ICOO0 便 等 於 高 解 象 图 第 上 
页 的 相对 象 素 位 置 的 地 此 。 过 地 
址 是 指 象 素 方块 的 最 高 一 个 位 置 
( 如 果 加 上 中 3 CC9060 便 是 相对 
於 高 解 象 图 第 & 贞 的 家 素 ) 。 


低 解 象 图 及 其 画面 组 缀 

假设 数据 $9 1 是 储存 於 记 情 
地 址 $400 上 处 ，。 即 低 解 象 图 画面 
的 关上 角 ( 见 蜀 (  ) )。 每 伽 b 
一 yte 的 4 个 bit 的 RAA 都 
可 以 储 在 由 0 至 15($o 一 $ 


) 之 数据 ， 向 到 上 6 个 数 晶 即 相 赎 
对 於 Apple 工 的 L 6 个 低 解 象 虱 
所 色 数据 ( 史 硼 ( 工 ))* 

在 出 ( 工 ) 袁 *。byte 中 3 
工 相 巍 善 两 介 家 类 的 颜 和 名， 榜 色 
9 ) 和 深 菠 色 ( 工 ) ， 而 较 低 的 4 
个 bit ( 即 ) 表 泵 再 面 上 方 的 
象 素 ， 而 较 高 的 4 个 bitk( 即 9 ) 
表示 娟 面 下 方 的 象 素 ， 即 深 氏 色 出 
现 於 坐标 ( 0 。，0 ) 人 位置 而 人 梭 色 则 
在 (0O0。1) 位 此 。 


低 解 象 及 高 解 尔 RAM 定 址 

在 图 ( 2 ) 由。 我 人 把 在 低 解 
象 图 地 址 中 48 工 加 上 $ LIC00 
,把 世 变 成 商 解 象 图 地 址 8208 
1I ， 即 得 出 8 个 冬 直 象 素 的 最 癌 之 
- -的 地 址 ， 在 图 ( 2 ) 庄 我 们 可 以 
看 到 其 它 ? 个 象 素 的 地 址 *， 它们 之 
沿 刚 好 相差 94 和 9 0。 


二 


团 ( 3 ) 高 解 像 图 老 面 数据 及 其 相对 於 颜色 各 之 数据 


高 解 像 丽 面 数 所 
行 


人 
十 进 制 16 造 制 颜色 
深 镁 


oowhwob 一 品 
小 消 消 手 
虱 呈 绑 报 


演 商 忆 


深 
其 
划 
灰 
间 
黄 
水 
日 





高 解 象 彩 色 描 答 
在 计算 了 其 相对 位 置 后 。 你 便 
震 要 决定 哪 一 个 颜色 表 的 byte 要 
满 给 了 ( 在 程式 ( 工 ) 中 地 址 由 3 
8 2 至 $30C1 是 载 有 颜色 表 ) 。 





颜色 到 数 据 
44，08，11，22 漆 色 
pw AA，D5，AA，D5 橙色 


在 正常 情况 之 下 ， 如 果 你 需要 在 基 
~ 个 象 素 卡 显示 一 种 糊 色 。 你 便 需 
要 用 2 个 byte 的 记 迟 。， 例 如 你 想 
显示 一 列 芒 色 象 过 。 便 需要 把 数据 
$D5 和 $AA 以 双 音 的 行 数 形式 
在於 只 只 这 内 。 

在 Applesoft RONM 内 ， 
有 了 关 高 解 象 度 位 置 及 描 点 程式 部 份 
是 位 於 地 址 $ 卫 41 工 工 不 ; 如 果 你 
把 韦 公 序 弄 销 ， 即 互 换 了 ， 那 床 你 
便 会 得 出 相反 的 颜色 ， 如 $D 5 在 
彰 行 而 李 AA 在 驳 行 。， 便 会 出 现 梅 
色 的 一 由 了 。 

我 们 的 程式 有 部 份 工作 是 代替 
了 RONM 程 式 的 功能 过 是 念 了 想 斑 
时 在 把 图 案 变 息 高 解 象 度 肝 ， 保 留 
所 有 地 色 的 显示 。 

在 图 ( 3 ) ， 显 示 於 地 址 $ < 
0 8 .的 稼 素 。 念 了 要 所 有 低 解 象 
颜色 的 效果 ， 便 把 象 索 改 起 由 8b 


全 2 


一 yte 控制 。 


程式 的 使 用 
程式 ( 工 ) 是 本 程式 的 整个 部 
份 ， 在 输入 和 后， 便 用 命令 : 
BSAV 了 LO.HI,。A 50 
人 
储 起 要 执行 程式 蛙 。 和 窍 需 刍 入 : 
BRUN 工 D.HI 或 : 
BILOAD LO.HI 再 CAEI 工 
768 或 ; 
-LO0.HI( ProDoS 肝 
) 
如 果 你 想 看 看 那 已 缀 换 的 高 解 象 图 
案 。 有 可 按 : 
POKEE 492559，DO 
或 者 可 以 按 : 
POKER 492428 ，O 
再 看 看 低 解 象 的 图 案 。 
如 果 你 想 把 高 解 象 图 储存 起 来 
。 可 以 用 : 
BSAV 了 PICTURE。 AH 
2000.。L942000 
等 或 以 其 它 档案 名 字 储 存 起 来 。 


示范 程式 
在 程式 ( 2 ) 庄 是 一 个 由 3 一 
AS5SIC 吉 成 的 示范 程式 ， 它 首先 会 
在 低 解 象 图 案 画 面 处 上 一 个 闽 果 
”然后 利用 程式 ( 1 工 ) 把 它 届 成 高 
解 象 图 。 


二 


主 程式 


0300- 
0302- 
0304- 
0305- 
(0307- 
0309- 
0350B- 
100- 
030 作 -~ 
0311- 
0312- 
03 雪 -~ 
0314- 
0318- 
431N- 
0351C- 
03 二- 
0320- 
0321- 
0323- 
0326- 
03205- 
032A- 
032(- 
0320- 
032E- 
032F-~ 
0330- 
0331- 
0334- 
0337- 
0339- 
0338- 
0330- 
03 耳 - 
0341- 
0343- 


N9 00 

8 00 

he 

3 04 

65 01 

69 00 

8 06 

由 40 

65 02 

18 

和 让 

69 

85 03 

人 0 

29 03 

85 06 

81 的 

48 

29 和 证 

20 47 03 
“0 04 03 
68 

29 F 

18 

6 

寻 

人 

6 

20 47 03 
20 04 03 
E0 00 

]0 08 

Eb 0 

由 01 

[9 08 

F0 0 

4 07 05 


LDA 
5871 
ThY 
LD 有 有 
57 
LIN 
3TA 
LDA 
6TA 
5LL 
LDA 
AD 
5TA 
LIA 
AND 
9 了 
LDA 
PHA 
AN 
JSR 
5R 
PL 
ANJ 
久 LL 
RDR 
ROR 
RUR 
RUOR 
JSfR 
JSR 
INL 
BNE 
INL 
LDA 
CNP 
BEQ 
JP 


提 训 0 
$00 


# 生 04 
4 
# 李 0 人 
06 
0 
4 和 02 


401 

# 各 了 

直 05 

02 

提 有 0 
400 
(0 


# 忆 OF 
0347 
30504 


和 


$0347 
$0304 
0 
$0343 
1 
4 
08 
$0346 
40309 


6- 
03547- 
0349- 
0549- 
054- 
034L-~ 
43540-~ 
0550- 
3952- 
03554- 
6550-~ 
0558- 
03J59- 
935A- 
55- 
6331- 
35E- 
0301- 
0363- 
0304- 
0300- 
0568- 
0308- 
全 引 - 
05 拉 - 
43 外 -~ 
0571- 
0373- 
03575- 
0370- 
03578- 
03576- 
由- 
0370- 
035 站 -~ 
0581 -~ 


上 0 
?1 02 
18 

人 公 
69 0 
85 03 
这 

0 02 
90 5 
80 


RTS 
ASL 
ASL 
[LE 
ADL 
了 
LDA 
8T 有 
LN 
CN 
BC9 
JN; 
] MX 
RNE 
EX 
?EX 
LDN 
95T 和 
RTS 
ELDX 
LDA 
5TA 
5LL 
LDA 
ADC 
9T 
LDA 
5TA 
引 
DA 
AD 
3 
TH 
CRP 
8 
RTS 


0582- 00 00 00 00 4 和 4 08 
u388- 31 22 91 人 2 [4 88 55 2 


$06 


$0382 
04 

406 
02 
4035[ 


403o 


40382 
405 


夫人 00 
04 
(下 2 


403 

和 04 
03 

405 
(02) 


05 
4$04 
4 


衬 02 
$0360 


二 29 


0390- 55 26 08 11 22 和 4 33 4 
0398- 4 19 喇 般 的 生 00 有 
03h0- F7 EE 8 91 人 2 5 司 和 册 0 
03h8- MI 05 的 4 19 33 77 
0380- 59 38 2 55 2h 55 所 
0386- 8B F7 39 77 上 E 50 FF FF 


03C0- FF FF 


程 取 二 


100 
110 
120 


130 


140 


150 


0 


170 


160 


190 


200 
210 


TEXT ，HOE 

PRINT CHR 《4)1"BLOAD LO;HTI9 
:6R 
《0LORz 12; 已 IN 9 10 AT 333 
101L AT 2 ALIN 1112 4 3 

| 

HLIN 23438 AT 16 HLIN 24137 

hT 1 HLIN 2437 人 全 

HLIN 25429 AT 13， HLIN 32，30 

AT 13 HLIN 27，28 MT 12 RLIN 
335134 人 12 
(COLOR= 13!， HLIN 2338 AT 17: 
HLIN 23437 人 18， HLIN 23 人 3 
6h6T 19 

COLOR= 9 FOR Y = 20 T0 22 HLIN 
23435 人 TY 人 EXT 
[COLOR= 1，NLIN 23436 AT 23 HLIN 
23137 1T 24: HLIN 2438 人 2 

5 


COLOR= 了， HLIN 24 38 AT 26， HLIN 
24,38 人 27; HL 25 37 人 2 

8 

COLOR= 2: HLIN 24, 3 人 T 29: HLIN 
24,36 AT 30: 二 这 28,34 人 T 3 

1 HLIN 29,30 MT 32， HLIN 32 

3 22 

[ALL 768 

PDKE 49239,0，POKE 49148 ,0 





要 在 理 果 上 做 出 好 的 图 案 效 未 
。 除 了 要 明白 其 图 案 和 结构 。 命 分 的 
用 法 和 原理 人 外。 最 佳 的 办 法 莫如 类 
自 营 坛 掏 做 一 些 程 陈 。 

在 趣味 图 案 集 庄 *， 我 们 提供 了 
一 些 示 和 芒 的 程式 。 包括 低 解 像 及 高 
解像度 的 图 案 ， 视 刻 各 用 家 可 以 估 
沽 些 简短 的 程式 中 ， 得 到 一 些 帮 助 
* 或 者 有 部 份 程式 可 以 用 作 你 要 设 
计 的 程式 中 的 子 程式 中 ! 


低 解 像 图案 程式 
Apple USER 井 21 


程式 ( 工 ) 最 通 宜 用 作 程 式 的 


二 本 间 - 


开始 ， 例 如 游戏 程式 的 了 片头 」」 等 
， 其 中 的 行 号 L 0 ， 构 数 A$ 的 
内 容 可 以 是 其 它 的 文字 。 


扰 旺 


当 你 按 下 程式 (和 ) 后。 用 有 
一 巧 热 行 后 你 会 发 现 画 面 会 被 清 
除 。 但 游标 双 再 次 出 来 。 项 麻 也 疫 
有 做 ， 不 要 以 坊 程 陈 疫 有 执行 ， 补 
要 你 按 耻 键 。 便 会 出 现行 号 1 工 0 
罗 数 A$ 之 内 容 。 小 心 被 喇 。 


镜子 


过 个 程式 (4 3 ) ， 侣 使 你 的 最 


示 幕 中 的 书面， 左右 反 转 ， 就 好 像 
一 面 簧 子 般 ; 其 中 使 用 到 一 些 低 解 
像 度 图 案 的 命令 。 值 得 参考 。 


视窗 示 称 


过 是 一 个 文字 显示 幕 的 先 窗 示 
箔 。 程 式 ( 4 ) 其 中 的 基本 撤 巧 和 

论 。 可 以 套 考 本 期 的 | Apple 
一 soft 和 视窗 」 一 叉 。 


奇怪 显示 


程式 ( 5 ) 的 效果 是 无 意 中 发 
现 的 ， 你 可 以 党 坛 改 罗 行 号 1 < 0 





三 二 


的 内 容 ， 例 如 改 入 双 =  ， 基 = 吕 
5 5 或 者 其 它 的 命 合 、 述 句 等 ， 妊 
会 有 不 同 的 歼 果 。 


高 解 像 图 案 程 式 
电视 机 填 了 


程式 ( 6 ) 提供 一 个 类 似 电 和 视 
机 十 了 上 蛙 的 必 面 般 的 效果 。 


正方 形 


利用 正方 形 不 同 旋 塌 的 角度 和 
大 小 。 砌 成 不 同 的 图 案 。 过 是 程式 
(“) 的 未 箔 。 


弹 弹 球 


过 人 午 程式 ( 8 ) 在 执行 后 ， 要 
等 候 大 绝 3 0 秒 寺 有 动 六 题 未， 它 
会 由 左 至 右 阐 出 一 个 球 。 由 高 至 低 
* 窍 要 稍 台 改良 。 便 可 以 用 作物 理 
运动 模 据 程式 。 


请 的 图 


一 个 很 有 中 国 构 疾 色彩 程式 ， 
利用 小 方 格 的 组 合 出 一 个 图 案 ; 你 
共有 由 1 二 至 ? 共 七 个 大 小 可 供 答 画 
显示 。 见 程式 ( 9 ) 


N 角形 


程式 ( 0 ) 亦 是 最 后 一 个 程 


式 。 核 人 要 答 出 的 廿 角形 之 丁 数 ， 
程式 便 会 烛 出 本 角形 及 可 角 星 了 。 





程 陈 一 


100 TEXT :NO 

110 艇 于 PPLE 风 ER 4212 

120 FOR X = 12 T0 23 

130 HThB X VTAB 和 PRINT 个 

140 HTAE 24 =- 2 VTAB X PRINT 有 


多 
]30 HTAB 2 VThAB 24 - X PRINT 生 


2 


160 HTAB 24 - X2 VThAB 24 =- X PRINT 
人 

170 全 X 

180 FOR Da 17T024 

190 FRRY= 12 T0 23 

200 VTAB D，HTAB YI PRINT 入 

210 VYTAB 0，HTAB 24 - Y3 PRINT 和 
划 

220 陛 XT ;人 EXT 


程式 二 


100 TEXT ，HONME 

110L = 0 杀 = "ipPLE USER 和 1 

120 FOR As 1TO LEN (M) + 1 

130 VThAB 22;， HTIB L PRINT CHRY 
(93) 5 人 

140 (= LEFT (人 儿 ) 

150 6ET 1 

140L =L+ 1 HEIT 


程 取 三 


100 FOR =0T0343 

il0 FIRY = 0T0 4 

120B = PEEK 【 -14633603 有 = SCRNI 
xyY) 

130 [COLORe AN = SCRN( 39 - XY 


) 

140 PLOT 39 - YY， COLOR= h， PLOT 

150 有 EXT ，NEIT 

160 FOR Y = 0T047 

170 FOR Y = 0 T0 19 

180 8 。 PEEK ( - 16336)3h = SCRN{ 
XY) 

190 [COLDR= A:A = SCRN( 39 -YY 
】 

200 PLOT 39 - XY: COLOR= APLOT 
X,Y 

210 NEXT ，NEXT 


程式 四 


00 INVERSE 福 武 二 
110 FORV=23T01STEP -1! 
120 FORH = 1 7T04 100 FOR 1 = 768 T0 777，READ P，POKE 
130 VTAB 只 HTAB H，PRINT ，， LpP: 折 人 T 
140 NEXT ，EXT 140 POKE 232,04 POKE 233，3 
150 POKE 34,5，POKE 35，17 120 H6R2 ，HCOLOR= 3 
160 PGKE 32,8，POKE 33，24 130 FOR A = 1T010000 
170 POKE 241 ,83 14083S= INT (RN CD) 35) + 1 
180 FIR =1T0S5 1590 FORR = 11T06 STEP S 
190 FOR SS 1T024 160 ROT= R， 5CALE= R，DRAW 1 NT 
200 HTAB S，PRINT "ss NEXT 139,95 
210 FORT=24TIlSTEP -1 170 比 帮 - 
220 HThAB T: PRINT "NEXT :NEXT 1860 FOR R = 6 T0 1130 STEP $ 

190 ROT= RSCALE= 131 - RS XDRAN 
230 HoIE ， TEXT 1 朵 41393395 
240 FOR Ks1T0O5S 200 性 人 :NEXT 
250 PRINT :NEXT ，POKE 241 ,1 RH 210 DRNTR 1 0 和 0 3030 生生， 

4 

程式 五 


100 FOR IT = 1T0 1000 
110 POKE - 16299,0 


]20 HC0LOR= 3 
1]30 FOKE -10300)0 
和 0 NEXT 


程式 六 


100 
110 
120 
1350 
140 
150 
1 的 
170 
!B0 


1 


< 加 


0 


FOR 凡 = 769 T0 783 
READ 8， POKE A, 

NEXT 

HSR ，HCOLOR= 5 

HPLOT 0,0 

CALL 62454 

H6R2 

[CALL 769 

DATA 173,87 ,192,234 ,173 ,84， 
192,234 

DATA 173,85,192，234,76,1,3 


533 





程式 八 


1900 NO 人 ，H6f ，HCOLDR> 3 

110 DIN YL:A = 150:38 = 270 

!20 HPLOT 0 T0 8 

1.0 FOR IJ =>1708 

4Y) ARA- 863(SINITA 9 
) 5 ERI-JIA8 ERYI 
+A zNf 

150 与 人 T 

160 FORF = 

LI70 FOR 1 = 

180 FOR JI = 

1904 HCLOR= 
ji,Y(T + 

200 NEXT 

ZI0TJ=TiyliT=T+t(T( 9 ENT 


程式 九 


louy JINPUT “SI2ZE=。 ;NTENT 

Ji0 IFN>OANDIN< BTHEN 130 

120 ENMD 

130F = 128E = 0K s 4^ 

140 FOR X = 1 TON'U = F， 
FE/2E si 2 E 人 T 

150 HE6R : HCOLOR= 3 = 80:Y = ? 
0 HPLOT )Y 

160 FOR 上 = 1T0OKI = MX = X+ 
riYsYt+ +E; HPLOT T0X， 
Y 

!70 FoRANz0T01lI=7I/12:8 > 

INT (2): 人 = 7Z - 0 NEXT 

180As(tA2e NT (7 2)) 4 
2-1U>=FF=AiE:Ez= - 
有 凡 UNEXT 

190 60T0 100 


F: - 


--34-- 





程 陈 十 

100 TEXT :， HOE :INPUT "NUKBER 
0F POINTS， ;有 

140  HCOLOR= 3 H6R2 

120 FOR Xe0T0 (2 3.14 - 0， 
001 STEP (2 4 3.14) /1 8 

130 FOR Yi+ (24314) 168T0 
(2 4 -001 STEP (2 芭 
14) 7 1 

]40 HPLOT (20S (X) 95 + 127)， 
( SIN IO YY 95 + 95) TO ( [C05 
(YEs95t+ 127),( SIN (Y) 二 
95 + 95) 

150 人 EXT ，NEIT 

140 6E7T AS RUN 


魔方 阵 


过 是 一 个 高 解像度 邀 戏 。 其 玩 
法 与 [电子 世 务 争霸 战 」 差不多 ， 


你 要 耸 量 避 名 与 在 导 面 出 现 的 物 体 


础 到 。 


整个 姆 面 都 是 由 方块 组成 ， 你 
控制 的 方块 在 辟 面 的 正中 ， 移 动 键 


包括 : 
程式 一 


100 H6R ，HOME 
110 HCOLOR= 3 

120 FOR I =07T04 

130 ， RE 和 N POKE 768 + 【1 A 
140 SEXT 

150 POKE 232,04 POKE 233 3 
160 ROT= 0， SCALE= 5 

170 FOR 1 :4 T0 278 STEP 4 
180 ，DRAM 1 AT 1,7 

190 ;DRA 1 AT 1,151 

200 NEXT 

2t0 FOR 1 = I3 T0 145 STEp 6 
220 ，DRA 1 AT 4 

230 1 DRA IT AT 274 ] 


240 NEIT 

250K = 49152;X = 130Y > 79 
240 DATA 1 0, 40.37,55 0 
270 pPOKE 234,0:8 = 0 
280N = Xi0=YITs PEEK (K) 


人 左 移 
石 移 
A 上 移 
2 丰 移 


而 和 过 的 地 方 都 会 留 下 方块 。， 此 外 


力 块 亦 会 不 断 地 出 现 ， 不 论 任 和 何 情 


形 之 下 。 一 碰 到 方块 便 GAMB 0 


一 VY 了 R 。 


2907 = 
(T = 149) 

300Y=Y+ -6 (Ts193) 4 
(T = 218) 

3I0Pz INT ITRND (有 45 + 1 二 
6+4 

3200> IJNT (RNI (YY 234 1) 4 
4+7 

330 POKE 234 0 

340 DR IT 人 YXY 

350 Y = FEEK (234) 

360 DRAM IT AT P,B 

30 IFNzXANDY=0 gRYVY 
20 THENS = + 人 yi 0OR 
0 Yi 60T0 390 

380 TEXT ，HDME ，PRINT "SCORE; 
"6; END 

390 VTAB 23，PRINT "SCORE， "9，60T0 
280 

图 


-- 0 一 


内 海 站 辆 


过 是 一 个 文字 显示 式 闭 戏 ， 你 
全 责 在 一 般 波 输 上 掌舵 。 由 此 岸 到 
彼岸 往返 数 次 。 把 货物 由 彼 岸 载 回 
; 然而 内 海中 有 很 多 战 时 遗留 下 来 
的 忽 雷 ， 顺 若水 流向 上 冲 ， 如 果 你 
的 渡 输 不 幸 磁 到 所 审 便 立 即 玩 完 。 
雯 面 符号 及 其 所 代 委 的 属 思 : 


程 陈 一 


1008>=>4920U:K SS- 4686 = 2 

110 TEXT ;HH0 汪 

120 [COLOR= 134 HRLIN 0 39 和 和 

130 POKE 3 

140 FORE =0T01 

190 = yt+Y (PEEK (人 K) = 149) - 
( PEEK (kK) = 136) 

10 =X- (> 人 5 2) 

170 ; VTAB 2 PRINT 

180 :PRIRT T TAB( X + 1) NDS 
000" ,1 3+LN TAB( 40)5 - T - 
上 

190 ， HTAB YX PRINT “一 条 林 林 =- 

200 :0 as SCRN( X 9) + SCRNI X + 
1,8 + SCRN( X + 2)8) 

ZJT=T+tLAhNDIYT= 2) 

220 : 计 zz 有 + 1 

230 :Lz= IILIRIJI>33) ANDIX 2 


二 


## 关  。 渡 罗 
0O 900 货物 
一 一 一 航道 
(11 急 雷 
疲 翰 之 控制 链 坊 : 
一 向 左 
~ 人 ~ 站 | 右 


240 ;CALL - 912 
250:s RN (DT+1i) 15 
240 ，COLORz [， PLOT RND (1) 4 3 
0 + 5 ,4 
270 :1 = PEEK (9 4 () - PEEK (3 
4 【] 
280 ;E=T=50RI 
290 NEXT 
300 HOME ; TEXT 
310 VThB 5 
320R = INT (83 -1 /100) 
330R =R- ItR《 OAR 
340 8ET 各 
350 PRINT MID$ (*BARBE SUNK1SPE 
ED="，+ 并 1 村 (*SLOW600DFAST 
UIKMARP" 1 + 4 二 NT + 
4 NOT 0 ,11) 
360 EM 








淮 纺 语言 人 门 ( 上 ) 
2 国人 芭 
和 本 
人 4 / 
生生 全 
| 生 
SN 入 多 ， 
CQ 多 术 


。 前 千 8 

要 进 一 步 了 解 及 发 挥 一 部 微型 
电脑 的 功能 ,学 属 徙 编 阁 昔 是 必要 
的 ， 对 於 要 与 外 界 接 角 。 避 然 是 一 
般 的 高 陵 话 车 都 可 以 做 到 ，。 但 实 隐 


上 是 存在 善 很 多 问题 ， 而 与 外 部 机 


吉 
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AN NS 
SR 
Am ~ 
“ | 


器 过 近 的 软件 介面 。 通 贡 都 

篇 话 吉 写成 的 。 
另外 准 篇 放言 可 以 提高 运作 速 

度 。 使 用 蕉 语言 雹 成 的 程式 ， 可 以 


比 一 般 高 阶 落 吉 快 数 至 数 十 倍 的 速 


度 。 但 其 程式 篇 写 较 坊 困 将 。 过 又 
增加 程式 届 计 师 鱼 担 。 

本 文 是 需 初 学 者 和 页 现 ， 简 释 由 
6502&4 准 炉 铬 莒 至 其 旋 用 息 止 。 


6505 微 处 理 疹 


6502 微 处 理 器 是 由 美国 的 
MOS Technology 推出 ， 马 
是 通用 於 微型 志 脑 的 微 不 理 绢 ; 现 
在 用 於 Apple ITc 的 65L40< 
是 65028 的 CMOS 版 本 ， 过 枚 
唱片 增加 一 些 新 的 命令 。 和 而 且 将 未 
定 鞭 的 柱 友 邵 作 人 OO 了 看 待 。 

如 要 明白 6 5 0 24 命 分 的 工作 
*。 除了 歼 看 有 关 的 书籍 外 ， 最 好 在 
你 的 App le 工 上 进行 实 验 。 运 柑 
会 有 更 深切 的 了 解 。 


6502 记 存 锻 的 车 构 


避 ( 工 ) 所 示 的 *， 是 6502 
的 内 部 记 存 器 ， 它 的 结构 非常 简单 
。 初 学 者 只 需 花 些 少 蛙 间 便 可 掌握 
过 枚 微 不 理 器 。 

罚 中 的 记 存 器 。 所 示 的 包括 累 
加 器 A 。 指 示 记 存 器 X 和 Y 。3 者 
二 是 8b it 的 记 存 器 ， 内 部 记 存 
上 除了 有 8 b ji t 的 之 外 ， 和 还 有 一 
6Ghbl t 的 程式 计数 器 了 ， 臣 
优 到 6 5 0 2 可 以 定 址 至 6 4 KK 一 
Dyte 的 记 坪 ， 而 通常 霉 真 区 域 
$0000~$o0BPFB) 的 记 惰 
上 使 用 率 校 坊 频 繁 ( 奢 看 图 (2 ) 
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) 

btack 指示 器 所 使 用 的 地 址 
* 章 已 定 於 地 址 $0O0100~O 
工 卫 了 区 域 ， 吧 然 丰 有 2 5 6b 一 
ytes， 但 在 交 降 使 用 上 已 疫 有 沿 
题 。 

状 能 记 存 器 一 般 被 简称 仍 了 记 
存 器 。 它 是 由 7 个 族 号 粗 成 的 ， 通 
些 族 号 的 状态 。 邵 受到 大 部 份 操作 
命 分 的 影 嘱 。 进 位 旋 号 一 般 都 与 加 
算 命 仿 、 减 算命 信和 上 比较 命 分 一 起 
使 用 ; 加 算命 令 作 进位 记 数 ， 而 城 
算 和 上 比较 命令 则 将 其 用 作 借 位 记 数 
o. 进 位 旗号 可 通 遇 两 个 命 分:4 工 C 
和 8 卫 C ， 分 别 把 骸 旗 号 设 定 需 O 
及 上 。 

在 6 5 0 & 进 行 果 加 器 加 1 或 
减 工 的 运算 ， 进 位 旗号 的 设 定 一 般 
如 下 : 

cCLC( 加 算 ) 

算 ) 

ADC#1L SBC 站 工 
站 是 一 般 被 使 用 的 形式 。 

至 於 满 滩 族 号 。， 则 是 用 来 作 加 
减 算 命令 的 进位 及 借 位 表示 之 用 。 
CELV 及 8& 卫 YY 两 个 命令 分 别 是 把 
其 设 定 倚 404 及。 

另外 一 个 十 进 模 插 族 号 。 是 把 
加 减 算 命 售 。 由 2 浊 数 演算 形式 、 
杰 成 0 进 数 的 演算 形式 。8 卫 D 
和 C 工 了 D 命 今 分 别 用 作 设 定 震 9 太 
。 由 於 在 密 源 雇 动 后 6 5 0 二 的 
十 进 模 气 族 玺 的 遇 定 不 定 。， 所 以 在 
使 用 上 时 必须 作 初 期 的 股 定 。 


SBc( 沽 


累加 器 

指示 记 存 器 
指示 记 存 器 
程式 计数 器 


A 
YY 
npCn 


Stack 指示 器 "9S" 
状态 记 存 器 


进位 旗号 
委 旗 号 
中 断 旗 号 


十 进 模 疑 旗号 


了 R 区 命 合 
满 滩 族 号 
负 族 号 


6502 的 定 址 法 


在 6 50 2 训 。 利 用 它 的 8 
一 it 指 示 记 存 器 ， 再 加 上 多 柑 的 
定 址 法 ， 使 到 6 > 0 2 壹 枚 晶片 的 
功能 发 挥 到 意料 之 外 。 
首先 泪 我 们 狠 激 一 下 6 5 02& 
的 命令 种 类 ， 在 图 ( 5 ) 囊 。 我 们 
可 以 看 到 5 种 6502 命 仿 的 精 构 
。， 而 65082& 的 定 址 法 则 有 以 下 : 
( 上 ) 降 式 定 址 法 
过 个 定 址 法 的 命令 ， 容 有 一 
个 byte， 葡 无 其 它 参数 。 
( 2 ) 直接 定 址 法 
过 个 定 址 法 的 命 分。 可 用 司 
(5 ) 的 2 byte 命令 作 人 起 
例子 。， 通 常 它 有 一 个 操作 元 
的 套数。 过 个 定 址 法 命 分 。 
一 般 都 是 对 累加 器 来 进行 起 





uP 
1=TRUE 
1=ZERO 
1=DISABLE 
1=TRUE 


四 (1 )6502 
的 记 存 器 


舅 真 划 域 


1=TRUE 
1=NEG 


$0000 


$0OO0FF 
$0100 












$401FF 
$0200 









4FFF9 
4$FFFA 


$FFF8B 
$FFFC 
4$FFFD 
$FFFE 
$FFFF 


加 (2)65092 补 预定 的 地 址 衬 闪 


一 4 纪 


( 1 byte 命 全 ) (2&byte 
LDA #$10 


LLL 


sy 


$18 


\ 


$A9 
$10 


接 的 坊 和 人 信 、 传 人 和 送 、 演 算 和 上 比 
较 等 。 


(5 ) 绝对 定 址 法 


过 个 定 址 法 是 使 用 3 byte 
命令 的 ， 它 是 -个 让 基 本 且 
重要 的 定 址 法 。， 命 今后 的 两 
个 操作 元 参数 是 地 址 ( 见 图 
(4))。 





人 零 员 定 址 巷 


示 个 定 址 法 是 纸 对 定 址 法 的 
一 个 特例 ， 由於 它 的 上 位 地 
址 byte 是 $0 90， 所 以 把 
它 省 掉 。 也 可 有 犁 它 是 万 对 定 
址 法 的 短 和 糖 版 本 ;一般 在 小 
编 话 襄 的 : 
TIDA$40000 


站 


n+ 十 1 


命令 ) 


15 


n+2 | 操作 元 上 们 byte 


( Sbyte 命 兮 ) 


LDA $1234 


(35)6502 机 械 菠 桔 构 及 例子 
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(4) 





都 会 被 写成 : 

LDA$o0 

而 且 可 以 省 掉 一 个 by te。 

饼 指 示 玫 存 器 修饰 的 绝对 定 
址 法 

[LABS8，。 和 又 ABS，Y 
] 

它 的 形式 与 绝对 定 址 法 差 不 
多 。 和 突 是 把 参数 地 址 再 加 上 
或 了 指示 妈 弃 器 的 内 容 ， 

而 成 息 凌 正 的 地 址 对 象 ， 我 
个 称 运 个 扶正 的 地 址 起 实 刻 
地 址 。 简称 盐 卫 A( 了 ffe 
一 ctive AddressSs) ， 

我 们 可 以 把 它 电 机 香 以 下 的 


公式 : 


LDA $C000 (AD，$00，$C0) 


( 工 )6502 的 程式 
计数 器 ( PC ) 
指 着 地 址 了 中 。， 
其 中 存 着 工 D A 
的 操作 码 .AD 


655356 俩 抽 履 ， 
每 个 抽 履 寻 可 放 和 人 8 
b it 的 数据 


2 


(2)6502 将 取 地 (S5) 工 卫 A 命 全 ， 把 地 址 
址 n+ 工 的 数据 $Cooo 的 数据 有 $ 
$o0O 及 DT 
的 数据 $ 4 9 ， 

砌 成 L6bit 作 则 与 其 相反 
地 址 $ CO 00 


( 4 ) 绍 对 定 址 法 中 的 工 了 A 命令 





卫 A=1TI6bit 爷 数 +8 [Z 。PAG 了 ER，X 2， 卫 
b it 指示 刀 存 洛 一 AG 了 BE。Y] 
而 由 准 指 示 记 存 器 共有 8hb 运 有 定 址 法 有 如 第 〈 4 ) 项 
一 it， 所 以 它 的 绝 化 范围 一 般 。 把 地 址 加 上 指示 记 在 
将 不 会 超过 2 5 6.bytes 器 ， 杰 成 卫 A， 其 公式 需 : 
( 见 图 (5) ) 了 A=[8bit 大 数 +8 
( 5 ) 被 指示 记 存 器 修饰 的 等 由 定 b i t 指示 记 存 器 ] MO0D 
址 水 $o 1I00 


= 水 工 二 


颌 (5)ABS 


( 6 ) 间接 定 址 法 


过 个 定 址 法 的 例子 命令 怎 J 
一 MP ( 见 图 (6 ) )， 运 
个 定 法 把 歼 数 地 址 及 其 加 1 上 
的 地 址 。， 之 琴 个 byte 内 容 
组 合 起 来 作 和 起 站 正 的 实 劾 地 
址 。 盈 个 定 址 法 在 使 用 时 会 
有 些 问 题 。 过 就 是 当地 址 是 
中 诬 和 有 有 卫 的 $ 卫 卫 需 尾 时 


JMP ($L000) 
($6C,$00,$10) 


LDA $1000，Y (B9,$00，$10) 





> 又 ABR。，Y 定 址 渡 


* 在 圈 ( 7 ) 中 我 们 可 以 看 
到 在 CPU6502 肝 。 它 
合 指 返 同 页 的 地 址 $ 艾 式 O 
0 ， 所 以 在 6 5 0 2 时， 一 
般 使 用 过 个 命令 都 会 把 它 放 
在 偶数 中 ， 以 避 产 生 过 个 了 
是 」。 

在 新 的 CMOSB 650C0& 
CPU， 则 无 到 情况 出 现 ; 


加 (6 ) 耐 搂 定 址 法 的 J 区 了 命 分 


-42- 





JMP ($10 世 也 ) 
($6C,$ 玉 刺 ,$10) 


$1234 45634 


65C02 的 跳 越 程式 寻 数 器 
6502 的 跳 越 
属 ( 7 ) 间接 定 址 法 的 『「 串 j 





过 亦 可 以 作 志 6 50 2 及 6 一 全 卫 使 用 於 地 址 $ 工 0 0 

5 CO 2 和 判别 的 方法 之 一 。 5 处 ， 显 示 其 工作 情况 。 
( ?7 ) 相对 定 址 法 ( 8 ) 被 指示 记 存 器 修饰 的 间接 定 

6 502 庄 共有 8 个 分 歧 命 址 法 

邻 ， 壹 定 址 法 定 址 范围 是 一 (I 工 ND，X) 

126 至 +129bytes 它 使 用 的 对 象 是 零 页 及 芭 记 

位 置 。 实 劾 地 址 的 算法 坊 : 存 器 。 把 操作 元 确 数 加 上 驻 

卫 A = 下 一 个 命令 地 址 十 《 记 存 器 后 的 地 址 的 内 容 。 而 

2 枉 数 的 操作 元 到 数 ) 成 篇 实 劾 地 址 。 情 形 就 好 像 

在 图 ( 8 ) 庄 。 分 歧 命 令 卫 图 ( 9 ) 般 的 例子 。 


BNB LOOP ($D0O.$PFB) 
<LOOP > $1000> 


圈 ( 8 ) 相对 定 址 法 





图 (9)(IND， 





X ) 定 址 法 

( 9 ) 指示 到 存 器 修饰 间接 定 址 的 址 、 而 把 过 休 新 地 址 再 加 上 
定 址 法 Y 记 存 器 之 内 容 ， 得 出 一 个 
(IND)，,Y 实 和 劾 地 址 。 在 图 ( 1 0 ) 中 
过 个 定 址 法 亦 以 雾 页 和 了 如 我 们 便 有 一 个 示范 的 例子 。 
存 器 您 对 象 。 工 序 首先 把 指 在 下 期 我 们 将 会 于 论 有 天天 果 


示 的 操作 元 参数 地 址 及 其 下 的 监察 器 ( Monitor ) 程 式 。 
个 地 址 的 内 容 ， 化 作 一 个 地 





LDA (S10)],Y 
( 叫 B1.$10) 
“ 习 > 和 12》 
spolo_Gaes 
] 
人 二 
了 有 存 器 | 
2 
和 A 记 存 迪 


加 (110)(IND)， 
Y 定 址 法 


口 


多 于 入 司 所 出 的 刊物 如 答 型 脑 。 现 代 电 子 以 及 昔 果 用 家 月 刊 均 有 定期 
订 闭 。 内 容 颇 充实 。 其 中 于 果 用 家 月 刊 。 较 和 垮 价钱 便宜 。 而 内 容 可 襄 是 超 
值 。 而 且 受 到 我 校 同 学 的 欣赏 。 本 人 是 一 位 中 学 生 。 也 是 一 位 狂热 的 4 一 
omputer 了 an 。， 以 穷 用 钱 的 一 部 份 用 作 有 购买 贵 出 版 入 的 刊物 的 实 金 。 

在 近期 的 葛 果 用 家 月 刊 中 发 汉 到 ， 幅 刊 所 新 出 的 更 果 8 4 专刊 发 行 ， 
於是 拿 了 稼 幅 的 $ 2 5 去 杂 关 贵 刊 的 刊物 。 

而 且 贵 刊 的 8 4 专刊 ， 其 中 某 部 份 的 程式 在 到 行 上 有 阻 冻 而 疫 法 解决 
。 浪费 了 多 者 章 和 足 的 上 时间， 电费 及 心机 ， 好 像 在 8 4 专刊 中 一 个 名 需 琴 一 
eW Dos Programmne 中 。 在 1 8 7 8 行 中 。 运 人 行 出 现 111egal 
quautity error in1g7g， 在 请 数 Computer Ban 那 床 高 
深 研 究 的 人 也 疫 法 解 公 。 

可 否 萍 饭 Prtogramme 的 作者 起 解答 一 下 其 原因 ， 是 否 电 脑 程 了 式 出 
现 Problem 或 是 我 的 Computer 十 了 ?希望 可 以 得 到 完善 的 解答 。 

电脑 狂热 发 烧 友 
上 


电脑 狂热 发 烧 萄 者 : 

接 肖 来 信 。 立 刻 把 原作 者 找 出 来 ， 博 他 核对 一 下 刊 出 的 程式 是 否 有 氏 
。 於 是 作者 人 搞 命 而 去 。 而 所 作者 回报 ， 刊 出 在 [ 葛 果 8 4 专刊 」】 第 4 一 4 
6 页 的 W 卫 W 一 DOS 程 式 ， 的 确 有 3 点 间 题 出 现 ， 运 三 点 钳 训 便 是 : 一 
1， 行 270 之 8ETUP 户 了 R 卫 M 一 字 。 

2 ， 行 530 之 HTAB 指 仿 后 彰 了 瓦 炙 数 。 
3 行 1030 之 PRINT D$ 指 今后 之 等 号 需 多 出 来 的 。 
上 述 三 点 改正 和 后 便 可 顺利 执行 。 

不 过 。 上 汪 各 点 与 来 信 提 及 之 il1legal quautity error 
in 10970 完 全 急 关 。 所 以 对 避 境 该 者 之 问题 未 能 提出 解答 ， 就 此 问题 
* 便 趁 栅 仿 大 家 介 帮 一 下 如 何 垮 程式 除 钳 。 

首先 要 从 了 解 指 今 开始 。 所 有 在 BASIC 使 用 的 指令 其 实 郡 有 一 定 的 
使 用 格式 * 而且 必须 要 符合 过 指令 的 需要 才 可 念 电 脑 所 接受 。 而 APPL 
一 SOBT 的 指令 其 容 不 算 多 。 故 攻 者 应 先行 把 各 指 今 狼 性 其 指 分 知 构 。 运 
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样 便 可 改正 。， 如 上 述 之 三 项 笛 新 。 

当 在 输入 程 式 上 时 。 要 一 心 一 总 把 全 部 程式 输入 。 于 万 不 可 夫人 入 了 一 牛 
的 程式 试 * RU 可 ”一 下 。， 因 程式 未 完全 你 不 会 有 任何 的 精 果 ， 而 且 膛 可 
胡 因 程式 内 的 不 完全 部 份 损坏 了 程式 精 构 ， 以 致 得 不 偿 失 。， 好 像 程 了 式 中 如 
有 RESET 或 ERROR 保 蒂 ， 而 双 在 开始 时 有 一 GO08SUB 至 和 后 部 份 。 当 和 后 
站 部 未 输入 了 时 。， 如 执行 程式 。， 可 能 会 有 蔬 OLD 机 或 程式 损 填 出 现 。 

如 要 避 旬 程式 失去 。 最 安全 的 方法 的 是 毛 打 唤 8AV 卫 。 不 险 在 碟 或 
带 上 ， 均 要 一 段 时 间 和 后 SAVY 卫 起 全 部 程式 ， 否 则 会 有 一 些 不 能 预知 的 事 
件 发 生 《 如 停电 ?了 | 

程式 坊 人 和 人 后 先 核 对 一 次 ， 如 有 印字 机 则 最 理想 不 过 ， 否 则 用 8 0 一 (4 
一 0 工 来 IST 艾 比 4000 工 好 得 多 ， 全 部 程式 核对 过 和 后。 便 可 坛 卫 
一 UN 一 次 ， 不 过 通常 核对 站 不 可 把 全 部 之 氏 慰 找 出 ， 过 有 蛙 便 要 由 实际 执 
行 中 找 出 程 陈 是 否 有 氏 。 

大 部 份 的 卫 RROR 均 有 行 号 指示 。 因 此 可 由 此 句子 找 出 赤 行 乙 文 法 是 
否 有 氏 ， 如 指令 的 文法 范 疫 有 鱼 。 则 检查 其 中 的 名 磷 数 值 是 否 有 钳 *， 例 如 
一 数值 不 合 规则 ( 如 了 POK 了 地址 大 於 6 555 6 ，。，。PORKEE 的 DATIA 大 
於 255，w，VTITAB 大 蕉 2 5…………… 等 等 资料 ) 。 

如 程式 扰 法 显示 出 铸 之 行 号 数 。， 则 可 检查 程式 内 是 否 有 ”ON 卫 及 及 
GOTO xxXx72> 了 ”或 是 EPEOKE JJ0O010，XxXxs PORKRE LIO12 。X 
x 。，。POKXBE 0135，。XxxXx?” 之 类 的 指令。 因 吉 两 指 邻 均 会 把 出 错 之 地 
点 阶 藏 ， 故 要 先 除去 才 可 。 但 丰台 全 行 删 去 。， 只 是 在 吉 些 出 现 的 地 方 删 去 
但 如 过 些 指令 是 单独 在 一 行 蛙 ， 则 要 加 以 一 人 五 贡 ， 以 保持 全 部 程式 的 
执行 行 号 。 

如 过 阶段 仍然 然 效 ， 则 可 坛 行 APPLHESOET 的 ITRAC 卫 指令，。 运 指 
仿 执 行人 后 。， 有 RU 程式 时 每 到 一 行程 式 。 便 会 印 出 设 行 的 号 码 ， 以 便 查 知 
程式 的 去 网 。 

中 然 上 述 只 是 初步 去 把 程式 除 错 的 技巧 。， 实 在 亦 是 全 部 的 除 钳 技巧 。 
因 篇 幅 所 限 ， 如 有 机 会 ， 会 再 俘 各 著者 介 胡 如 何 优 程式 除 钳 。 

更 果 信 箱 直 履 
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27G SETUP 
二 人心 REM SETUF 
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钳 训 二 


S530 VYVTAB V HTAR 家 GET X 村 2 工 愉 拖 二 只 再 EE 
VTAB Lw: HTAR 2: NODRMAL 3 PRINT RN 本: 三 嫩 了 全 
忆 生 日 
S3D  VTAB YY: HTAE FRI GE 了 X 贡 2 IF 本 二 全 仁 上 
VTRAB LV HTAB HI NDRMAL 3 PPINT 人 本 2 全 局 人 


xs80 
错误 三 
1030 HTGBE TI: NDRMAL : FRINT "5 TF 中 EEE 区 
(S) = 106 THEN PRINT BD 韦 = ”UNLGCHY 本 本 
1G36 HTAS I: NDRMAL : PRINT " "ITF PEEI 


(S》 一 辣 白 THEN 帮 RINT 瑟 革 ”UNL 9 下拉 ”所 本 


编辑 先生 : 
克 希 指数 以 下 之 问题 ， 
1 ) 怎样 寻 算 一 个 机 械 萎 言 程 式 之 地 址 及 长 度 : 
2 ) 有 其 床 工 具 程式 可 以 将 有 程序 的 磁 夸 袭 成 一 张 空 碟 ( 新 碟 ) “ 
本 人 有 少 少 提 广 。 希 望 贵 刊 多 刊 多 一 些 实用 ， 工 具 的 程式 。 
谢谢 
初学 者 信 。 工 ， 
上 
狂 者 K。 工 ，。 石 : 
要 计算 一 个 机 械 族 程式 的 有 长度。 只 要 把 程式 最 尾 一 个 地 址 减 去 开始 之 
地 址 再 加 二 。 过 便 是 程式 的 长 度 。 而 起 始 地 址 便 是 开始 之 地 址 *。 如 三 在 磁 
矶 上， 可 用 BSAV 卫 了 IILENAME。A$xxx，*。 工 $YY，* 或 磁带 之 
CALI 一 151<CR>，xxx。222 三 4 RR> 。， 去 完成 。 其 中 之 
x xx X 是 程式 之 起 始 地 址 。Y YY 是 程式 长 度 。2 2 2 则 是 程式 千 尾 地 址 
而 只 需 用 INIT 指令 便 可 把 有 和 资 料 的 磁 碟 构成 空 日 的 。 
昔 果 信箱 愉 玫 
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往 辑 先生 : 

我 最 近 在 一 些 外 国 杂 埠 。 及 其 金 商场 看 见 有 一 些 叶 8 088Card 
的 东西 。 他 们 说 可 以 今 一 部 8b it 的 Apple 殉 篇 一 部 1 6 b 1i t 的 电 
有 哟 。 我 现在 想 铺 数 一 下 是 否 那 张 Card 惧 的 有 过 样 功能 及 其 功能 是 否 能 与 
IBXM 相 比 ?1 又 Apbpple 的 drive 是 single 一 Sided ， 和 看 工 B 基 
的 是 double 一 sided 的 ， 那 床 它 究竟 怎样 操作 及 App 1e 是 否 可 以 利 
用 元 工 BE 而 设 的 扩展 卡 ?! 

双 如 果 想 利用 一 部 1 6b it 电脑 作 龟 商业 用 途 。 一 部 工 B 世 或 其 C 
一 omptiable 的 电脑 比 一 部 Applje 加 上 8088Card 的 取 扒 应 如 
何 捧 摆 ? 

多 谢 指数 
电脑 发 烧 友 
上 
统 者 发 烧 友 君 : 

其 实 8088 卡 和 280 卡 或 680 9 卡 的 性 质 是 一 样 。， 只 是 可 诸葛 
果 热 行 著 枚 CPU 可 执行 的 操作 系 舟 。 但 其 功能 是 未 必 可 完全 取代 乱 衣 C 
一 了 TU 而 设计 的 机 器 的 。 

现时 2 8 0 卡 运 行 的 CPMX 程 式 。， 亦 是 和 原音 果 格 式 示 相同 的 ， 包 
括 40 玖 和 3 5 声 及 这 料 格式 的 不 同 ， 而 现在 C 了 一 在 程式 亦 可 葛 果 上 热 
行 无 况 。 

而 8088 则 有 些 少 不 同 ， 因 IBM PC 最 售 人 吸引 是 其 本 身 的 多 
种 介面 及 容量 ， 而 项 果 加 上 了 8 08 8CPU 亦 只 能 过 到 部 份 之 功能 ， 丰 
能 有 十 足 的 相 容 能 力 ， 但 如 所 需要 的 是 一 发 展 8088CPU 用 的 程式 
则 已 十 分 足 兔 。 但 东 不 需要 使 用 PC 的 其 他 硬件 。 

而 了 上 的 磁 碟 格式 亦 是 有 多 征 的 ， 如 单 面 ， 休 面 或 双 密 度 。 故 CPP 
M 一 8 6 或 M5 一 DO8S 是 可 在 闽 果 磁 碟 横 上 动作 的 。 正 如 C 了 吉 的 磁 
仙 一 样 情况。 

而 除了 有 8 0 8 8 卡 可 插 在 藉 果 内 ，。， 亦 闻 痢 有 厂商 会 推出 一 种 可 用 了 
一 C 格式 的 磁 碟 机 及 扩展 卡 的 “ 墨盒 ”( BLACK 3B0X ) 出 现 ， 不 过 
信和 了 其实 疫 有 其 麻 分 别 的 ? 

所 以 如 要 对 两 者 在 商业 用 途上 分 出 高 下 。 是 有 一 定 困 将 的 ， 因 苦果 已 
有 多 年 历史 ，。 现 成 的 软件 十 分 多 。， 而 PC 则 有 高 速度 。 高 容量 及 新 科技 的 
优点 。 通 要 用 者 自行 权衡 何者 重要 J 了 。 

硕果 信 箱 夫 履 
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3 
征求 稿件 


本 刊 娄 迎 各 尾 者 投稿 ， 天 哈 是 硬件 用 作 、 自 反 程式 、 软 件 羡 介 等 一 律 歌 迎 。 在 投稿 肝 落 
注意 以 下 事项 : 
1 ) 来 稿 请 用 4 0 0 字 原 稿 多 书写， 文字 一 般 以 不 超过 2 0 0 0 字 扩 限 。 
2 ) 如 稿件 附 有 腿 片 。 必 须 清 晰 ; 而 输 圈 旭 氧 请 楚 整 深 ; 站 府 附 有 其 说 明文 字 。 
5 ) 如 傈 程式 稿件 。 簿 把 程式 储 在 磁 碟 或 卡 式 带 上 。 记 附 上 程式 印 列 一 份 。 
4 ) 翻 泽 襟 件 必须 让 明 原 文 出 威 。 最 好 附 上 原文 之 副本 乙 份 。 以 便 参 考 。 
5 ) 本 刊 包 来 稿 有 权 作 删改 ， 而 稿件 一 经 刊 出 即 臻 薄 酬 。 
6 ) 投稿 者 请 将 作者 之 呐 实 姓名 、 颈 烙 地 址 、 电 放 付 上 。 以便 联 烙 。 水 
? ) 切 勿 一 稿 雨 投 。 条 
国 投 和 藻 落 寄 二 
九龙 中 央 地 收 信箱? 2 0 2 7 号 水 
草 果 用 家 月 刊 收 
封面 蒂 址 明 「 投 稿 」 二 字 


项 于 用 有 月 乔 





1985 年 2 月 20H 出 皮 
第 4 他 第 21 勘 


位 月 20 日 出 用 她 柱 辑 : 黄 代 类 
主 篇 : 全 友 咒 
技术 丹 辑 : 区 必 借 
关 术 编辑 : 彰 秀 代 
封面 于 计 : 天 志 园 
由 版 : 子 科学 出 版 由 


通讯 地 址 : 几 龙 中 央 邮 政信 补 72027 号 
、 E 汪 通讯 电话 ， 【各 几 中 】 会 3-801608 
定价 埠 台 四 元 〔 订 并 部 】 全 3-805238 
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磺 果 用 肾 周 刑 
订阅 通知 书 


需 方 便 况 料 精 排 ， 请 以 英文 正 档 坊 写 、 


ss。 we we ae ws。 ws wwe ws。 we wy ea ww way we Wen。 


NAME: TEL: 
ADDRESS: 


附 上 寺 粹 交 潜 Ne 


口 6 期 : 口 1 
由 第 __ ”期 至 第 _ -二 其 

支票 收 款 人 请 富 “EE:MICRO” _ 

邮寄 地 址 : 九龙 中 央 邮 局 信箱 72027 忠 
人 | 


、 | 东南 亚 、 外 娘 | 空 季 |，。 
本 港 (不 邮 外 全 捞 号 另 加 


27. 0 39. 00 43.00 | 48.00 | 24.00 
54. 00 78. 00 86.00 | 95.00 | 48.00 
5.00 6.00 7.00 4.00 
10. 00 11.00 “| 12.50 7.00 
























HK $G 期 
12 期 






US 中 G 芭 
121 明 








晒 宋 用 有 月 刊 


电子 科学 出 公社 
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